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Put yourself in the pilot's seat of a Piper 181 Cherokee Archer for an awe-inspiring flight over realistic sceneryf 
from New York to Los Angeles. High speed color-filled 3D graphics will give you a beautiful panoramic view 
as you practice takeoff s, landings, and aerobatics. Complete documentation will get you airborne quickly f 
even if you've never flown before. When you think you re ready, you can play the World War I Ace aerial battle! 
game. Flight Simulator II features include ■ animated color 3D graphics ■ day, dusk, and night flying model 
■ over 80 airports in four scenery areas: New York, Chicago, Los Angeles, Seattle, with additional scenery j 
areas available ■ user-variable weather, from clear blue skies to grey cloudy conditions ■ complete flight ] 
instrumentation ■ VOR, ILS, ADF, and DME radio equipped ■ navigation facilities and course plotting ■ World 
War I Ace aerial battle game ■ complete information manual and flight handbook. 




See your dealer . . . 



or write or call for more information. For direct orders please add $1 .50 for 
shipping and specify UPS or first class mail delivery. American Express, Diner's 
Club, MasterCard, and Visa accepted. 

Order Line: 800/637-4983 
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LOGIC 



Corporation 

713 Edgebrook Drive 
Champaign IL 61820 

(217) 359-8482 Telex: 206995 



LOTSABYTES CONTINUES THE WAR ! 

WAR on high prices ! We're going to put an end to the software price 'ripoff. And YOU 
can help ! Just keep those orders coming while you continue to enjoy the quality, 
quantity, selection and low prices that you deserve. Our National Public Domain Copy 
Service will save you time, tedious work, and money. And our exclusive distribution of 
sharply discounted commercial programs will bring you someof the finest programs for 
the lowest possible price, usually 50% and more off retail! You continue to get FREE 
BONUSES with each purchase of three or more disks. 



PUBLIC DOMAIN SOFTWARE 



#1 


#2 


#3 


UA 


#5 


GAMES 


UTILITIES 


AMS MUSIC 


GAMES 


EDUCATION 


Two full disk 


25 powerful 


25 Advanced 


All different ! 


Loaded with 


sides packed 


programs to 


Musicsystem 


14 more 


28 programs 


with over 


hpln v/ni i npt 

i i c i yj yuu y ci 


filoc inrMiiHinn 

11100 II 11. H M J II ! t J 


better games 


on 2 disk sides 


25 games 


the most out of 


a new Player 


KJl l C U 1 0 r\ 


Pi in 1 0 Q r"n i n n 

run icdf 1 1 1 1 1 y 


including some 


your Atari 


program. 


JIUCJ. u 1 1 1 c 


1 ur nit; w no le 


Arcade quality. 


computer. 


2 sides. 


Arcade types. 


f n m i l\/ 
1 ( 1 1 1 1 1 1 y . 


$7.95 


3> / .33 


3> / .yo 


$7.95 


$7.95 


#6 


#7 


#8 


#9 


win 


AMS MUSIC 


GAMES 


UTILITIES 


GAMES 


1 ITU ITIFQ 
U 1 1 ICO 


25 all-time 


Two disk sides 


17 more 


Two full sides 


A new 


favorites 


packed with 


power-packed 


filled with 


assortment 


with a 


14 more 


utilities to 


17 of the 


of 17 great 


Player 


great games. 


help unleash 


best and 


and powerful 


program. 


Some 


full potential 


most recent. 


programs 


Two sides. 


Arcade types. 


of your Atari. 


Some Arcade. 


Don't miss it ! 


$7.95 


$7.95 


$7.95 


$7.95 


$7.95 


#11 


#12 


#13 


#14 


#15 


GAMES 


ADVENTURES 


EDUCATION 


AMS MUSIC 


UTILITIES 


NEW! 


NEW ! 


NEW ' 


NEW! 


NEW ! 


Our newest. 


2 full disk 


2 disk sides 


2 sides 


Another 


2 sides 


sides 


filled with 


filled with 


assortment 


filled with 


filled with 


something 


great music 


of fine 


great games. 


text 


for 


and a player 


programs. 




adventures. 


everyone. 


program. 


Not to be missed. 


$7.95 


$7.95 


$7.95 


$7.95 


$7.95 



Lotsa Bytes EXCLUSIVES 




ADVANCED 
MUSICSYSTEM II 

by LEE ACTOR 
Allows you to create music 
with your Atari computer! 
All new machine code. 

* Control over pitch 
duration, envelope 
dynamic level, meter, 
tempo and key. 

* 4 independent voices 

* 5 V2 octaves per voice 

* Save up to 8200 notes 

* Custom DOS 

* FULL instructions 

* 24K disk 
Originally S29.95 Only $14.95 

ORIGINAL ADVENTURE 

by Bob Howell 
For all Atari computers. 
The Original 
Colossal Cave 
Adventure faithfully 
reproduced from the 
main-frames' 
This is the one 
that launched the whole 
Adventure craze of today 

* Two mazes 

* 130 rooms 

* Deadly Dragons 

* Nasty Dwarves 

* Tenacious Troll 

* The Pirate & More 

* 86 coded hints 

* SAVE RESUME 

* 40K disk or 32K tape 
Originally $24.95 Only $14.95 




QUALITY WORD PROCESSING 

ESI WRITER! At last a brand-new Word Processor 
that has more features and is easier to use than 
anything else available for the Atari. Easy for the 
beginner to use, it asks questions and remembers 
the answers. ESI WRITER is so sophisticated that it 
has many more features we don't even have room to 
mention ! Works with ANY Atari. 

* Reads any text file * Built in Help screen 
* Very fast ! * Works with ANY printer 

* Instant top, bottom or text location 

without scrolling! 
* Every printer feature * DISK ONLY (Any Atari) 

* Search and replace * Block move text 
*Page eject/start * Set margins/lines etc. 

*F u 1 1 justification * Print headers etc. 

* Block delete etc. * Change video color 

* Over 50 pages of docs and tutorials 
TRUST US ON THIS ONE! YOU WILL LOVE IT! 
Originally $49.95 LotsaBytes price $19.95 

* * FREE BONUSES * * 

Now for each 3 disks ordered 
you may choose any 1 of the following disks 
FREE!! 

... buy 3 - get 1, buy 6 - get 2, buy 9 get 3 ... 

a. The Atari XL TRANSLATOR DISK 
that enables XL owners to use most 
400/800 software. FREE ! ! 

— or - 

b. An all different AMS MUSIC disk 
with Player. FREE ! ! 

—or — 

c. Your choice of one of the P.D. disks -- 
#1. U2, #3. #4, #5. #6. #7, #8, 
»9. or #10 (specify one) FREE!! 




MUSIC MAJOR ! 



Learn the basics of music with this light- 
hearted but very thorough approach. 
Covering such topics as note recognition, 
key signatures, note counting, and much 
more, it is designed for use by both the 
individual student and music class. 
This program includes a thoroughly 
illustrated manual and offers a QUIZ 
MASTER utility that allows the teacher or 
the self-taught student to create their own 
A-B-C-D type tests, with a sample quiz 
included. 

Originally $39.95 Only $14.95 



GREAT GAMES ! 

SPACE GAMES: Three games for one low 
price !.. In Aliens you can't get them all and 
the pace keeps getting faster. When you 
do get rid of most of them, you are left in a 
space quadrant peppered with mines. Will 
you Survive? If you do, you must 
penetrate the alien's spaceship, survive a 
Robot Attack, and get back your stolen 
cloaking' device! Interested? 
$24.95 list LotsaBytes price: $9.95 

THE BEAN MACHINE by Steve Robinson 
is an Award Winning Arcade game that 
will drive you crazy balancing a series of 
beams while trying to get all the beans to 
roll down, without touching, all the while 
avoiding strange creatures' who drop in 
to steal the beans. It's addicting! 
$24.95 list LotsaBytes price: $9.95 

DIGGERBONK, another Award Winning 
game by Steve Robinson, challenges you 
to find your way through a continuously 
scrolling maze while avoiding some really 
strange creatures. Along the way you will 
need to Bonk some of them, but watch out 
for the bombs. 

$24.95 list LotsaBytes price: $9.95 

GUESS WHAT'S COMING TO DINNER 

lets you try to manuever asnake through 7 
levels if you can keep it from starving or 
being electrocuted. Lots of surprises! One 
or two players. 

$24.95 list LotsaBytes price: $9.95 



CREATIVE LEARNING 
ADVENTURES 

Ages 4 to 10 — Disk only 

1. Hours of educational fun playing 3 
exciting creative adventures with a 
friendly alien learning about our planet 
Earth. Hand/eye co-ordination, drawing, 
and music skills are emphasized. 
$24.95 list LotsaBytes price: $12.95 

2. Four challenging learning games that 
are the favorites of our friendly alien. 
Helps your child to develop logical 
reasoning ability. 

$24.94 list LotsaBytes price: $12.95 

3. These 3 Fun-Day learning games will 
help with intellectual development, 
hand/eye co-ordination, logic, spatial, 
and analytical abilities. 

$24.95 list LotsaBytes price: $12.95 



LotsaBytes 



Full 100 Replacement guarantee.Any disk (ound to be defective will be replaced tree and we will also refund 
your return postage. All orders shipped by First Class U.S. Mail. Add S1 .95 shipping and handling for 1 to 5 disks. 
Add S2.95 for 6 to 12 disks. California residents add 6% sales tax. Outside of U.S.A. and Canada add 15%. U.S. 
Funds only. We accept checks or Money Orders. Sorry, no COD or Charge Cards. Allow three weeks for personal 
checks to clear. 

15445 Ventura Blvd., Suite 10G, Sherman Oaks, CA 91413 

At.in is the registered trademark of Alan. Com 




Gr fmSon the ««'„^S l. Five complete ga 
it's done. 



, the computer so^ ent {ot the o 
your area. 




Tlic Home Accountant hardware requirements: 48K Atari 800/800XL, one or two disk drives, printer ( 132 Col. optional) 
The Home Accountant is a registered trademark of Arrays, Inc./Continental Software. Atari is a registered trademark of Atari, Inc. 
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ANTIC AT FIRST GEM SEMINAR by Nat Friedland 
Converting IBM PC software to Atari 


12 


PIXEL SCANNER by L y n Buchanan 
Enhance your picture details like NASA does 


TYPE-IN SOFTWARE 
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ATARI IN LIGHTS by Michael Ciraolo 
Theater lighting designer's Atari CAD 
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COLOR PALETTE by John Felton 
Joystick selection of program hues 
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PRINT SHOP by Jack Powell 

Smash-hit graphics software now in Atari version 
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COLOR INKLE LOOM by Gerald Hagopian 
your Atari master weaver 


TYPE-IN SOFTWARE 


29 


PLAY IT AGAIN, ATARI! by Nat Friedland 
Atari makes MIDI music with Casio 




30 


GUITAR TUTOR by Frank Imburgio and Grace Barry 

Learn and play guitar chords on your Atari type-in software 


35 


THE MUSICIAN by Angelo Giambra 
Type-in "music construction" software 
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VIEW 3-D by Paul Chabot 
Rotate and view 3-D objects in ACTION! 


TYPE-IN SOFTWARE 
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G+U+P+ THE GREAT by Darek Mihocka 
Fast graphics power from BASIC 


TYPE-IN SOFTWARE 


45 




DEPARTMENTS 


COMMUNICATIONS 

THE # 1 SYSOP by Michael Ciraolo 
Ron Luks of SIG*Atari 
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LOGO 

TURTLE PIANO by Craig McBain 
Easy Logo keyboard music 


TYPE-IN SOFTWARE 
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MICROSCREENS 

COLOR-THE-COVER CONTEST WINNERS 
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ASSEMBLY LANGUAGE 

TURBO TYPO II by David McLaughlin 
Speedier TYPO II with three-line fix 
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GAME OF THE MONTH 

HELICOPTER ROUND-UP by Walt Bulawa 
The sky cowboy game 
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BEATING THE ZURK BLUES 

I've been having problems typing in line 
5000 of "Zurk" (March 1985). Please help. 

Douglas Hiatt 

Largo, FL 

Line 5000 contains the phrase 
"SET 1= LI* 256". We are going to assume 
here that you 're using the BASIC XL car- 
tridge from O.S.S. This BASIC is more 
powerful than Atari BASIC and has 
several extra commands. One of these 
commands is SET and thus, it cannot be 
used as a variable without special 
precautions. Seepage 131 of your BASIC 
XL manual on this. 'ZURK'' runs as 
published and should ivork in BASIC XL 
if you change all the SETs to some other 
variable name.— ANT\C ED 

TYPO II TYPO 

TYPO II (January 1985) does not work on 
my 1200 XL. It doesn't accept the SET 
commands. Any suggestions? 

Mary Mitcham 
Houston, TX 
The original instnictions in "How to use 
TYPO IT' read "BASIC XL cartridge 
owners type SET 5,0", etc. We have 
subsequently cleared up the wording. 
-ANTIC ED 

SOME THOUGHTS ON AL 

In most issues of Antic, there are type-in 
programs listed in BASIC as well as in 
assembly language. I've spent many hours 
typing in AL programs and found that 
none worked. In particular, I've had prob- 
lems with "Keyboard Commander", 
(March 1985). Can you help me? 

Henry Jennings 
Detroit, MI 
If the AL listing is an addendum to a 
BASIC program, it's printed primarily as 
a study example for serious AL program- 
mers. Unlike BASIC, machine language 
is unforgiving. One mistyped bit of code 
and your computer will lock up. 

"Keyboard Commander" loads into 
Page Six. So does MAC/65. Unfortunate- 
ly, there is only room for one program 
in Page Six, and the big orange super- 
cartridge is not about to let it be 
"Keyboard Commander". 



"Keyboard Commander" will run on 
Atari Assembler Editor, Atari BASIC and 
ACTION!. It will not run on MAC/65 
unless you relocate the code.— ANTIC ED 

OKIMATE 10 REVISITED 



I think that your comments on the Oki- 
mate 10 were a bit harsh. Perhaps you were 
using the wrong type of paper. True, 
dumps on plain paper are barely readable. 
However, I used black on white dumps on 
thermal paper (I use IBM PC Compact 
Printer Paper, # 1503926). For color prints, 
try Scotch 501 Transparency Film for Plain 
Paper Copiers. 

Alan Fillmore 
Bakersfield, CA 
Several readers have suggested that we 
used the ivrong type of paper in review- 
ing the Okimate 10. Well, Antic finds it 
refreshing to be considered too tough on 
an advertiser for a change. We recognize 
that some readers have had better results 
with that printer than we did. 

When we revieived the Okimate 10, we 
used the paper, printhead, printer and 
ribbons provided by the Okimate Cor- 
poration. We followed the company's 
instructions — but then wound up spend- 
ing most of a workday tinkering with the 
configuration in order to get even the 
slightly improved results we printed. 

We assume that a major company 
would ship a working, pre-tested piece of 
equipment to assure the best possible 
review. If we were, in fact, provided with 
a bad printhead that we didn 't recognize 
at the time, this is a noteworthy^ problem 
that might be faced by anybody purchas- 
ing the printer— ANTIC ED 

OF BITS AND BYTES 

What is so special about the number 256, 
as in 10 PEEK A(195)*256? 

Kevin A. Scott 
Algonquin, IL 
The highest number you can have in any 
one address is 256. Your Atari is an eight- 
bit, binary computer. "Binary" means it 
only understands two numbers, 0 and 1. 
These numbers are called (e bits ". Eight bits 
make a "byte" and the maximum dif- 
ferent combinations of eight bits is 256 
(0-255). 
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Since memory is nothing but a se- 
quence of byte addresses, and ive want 
to reach more than 256 of them, we put 
two bytes together and have 256 com- 
binations times 256, or, 65,536. 

These double-byte numbers are called 
"words" and the two bytes that make up 
a word are called the "low-byte" and the 
"high-byte". When the low-byte goes be- 
yond 255 (remember 0-255) it returns to 
zero and the high-byte is tipped by one. 



This means that each unit in the high byte 
is equal to 256. 

Now if, for example, the high-byte con- 
tains 2, its value is 2 *256, or 512. 

And if the low-byte contains 50, the two 
ttytes together equal 562. Words are stored 
in the Atari in a backwards order of low- 
byte followed by high-byte. If the number 
562 was stored in locations 88 and 89, 
88 would hold 50 and 89 ivould hold 2. 
The formula to find the values of these 

-| help! 



two locations is: WORD=PEEK(88) + 
PEEK(89)*256-hHl\Q ED 

BATTERIES MOVES 

Batteries Included, publishers of PaperClip 
(reviewed in Antic last month) moved to 
30 Mural Street, Richmond Hill, Ontario, 
L4B 1B5 Canada. However, please don't 
order products from them by mail. Q 




KWIK DUMP 



TYPO II BONUS 



"Kwik Dump' 1 (Antic, March 1985) con- 
tains an error in line 1070. The last number 
in that line should be 27 instead of a zero. 



THIEF 



Readers are having problems typing in 
"Thief, the March 1985 Game of the 
Month. The game does run as published, 
but if your TYPO II code for line 1105 is 
UK. make sure that the inverse [p] in that 
line is lower-case. 



WIDE TEXT 



Bill Morris's "Wide Text" (Antic, January 
1985) cannot print a double-width [Z]. 
Substitute these lines to correct this 
problem: 

In the assembler listing: 
0600 CPY «27**8 ;8 

BYTES TO A LETTER 

In the BASIC listing: 
CT 2813G DATA 23.6.208,2 
13, 185, 8, 224 



S.AM. SOURCE CODE 

The assembly language listing of "S.A.M. 
Handler" (Antic, February 1985) contains 
an error in line 900. LDY $01 should read: 
LDY #01. The BASIC listing is correct, 
however, and runs as published. 



Ever since our improved TYPO II program 
typing proofreader began appearing in 
January, Antic has been getting letters that 
ask for TYPO II codes to the most popular 
and difficult pre-1985 programs. These 
will be in the issue Next Month! 

You'll find the TYPO II line codes for 
the four most-requested listings— 'Biff- 
drop," "Escape From Epsilon," 'Advent 
X-5" and "Adventure Island." And we'll 
print codes for more Antic golden oldies 
if we get enough requests. 



CHECKED 100 TIMES 

I typed in a program from the July 1984 
issue and it still doesn't run. I checked my 
listing 100 times and I have not found a 
typing error. I also checked the following 
issues for an error report but didn't find 
one. 

H. Reynaldos 
Miami, FL 

This is typical of many letters we receive 
from frustrated readers who type in a 
program only to find it does not run. 
They may check it many times and when 
it still won *t work, they naturally suspect 
a publishing error. 

Antic does make mistakes, as you can 
see from the magazine's Help! items and 
the monthly Error File. But the great 
majority of program problems come 
from readers mistyping the listing or mis- 
understanding the instructions. 



If you are having problems with a pro- 
gram that ivas published more than three 
months ago, and you don't see a correc- 
tion printed in either Help! or Error 
File, you can bet the error is on your end. 

That's because most major program 
problems are discovered within two 
weeks of publication! But due to the long 
turnaround time for four-color national 
magazines, the soonest you can expect 
that error to appear in Help! is two issues 
later. For example, a February' error 
should show up in April's Help! 

Program errors which appear in Help! 
are transferred the following month to the 
Error File where they remain for ap- 
proximately six months. A complete in- 
dex of all Antic errors can be found on 
our ANTIC ONIINE service on Compu- 
Serve. 

We test all programs on Atari 800s, 
1200XLs, 600XLs and 800XLs using both 
cartridge and built-in BASIC. We use 
Atari 810, 1050 and Indus GT drives with 
Atari DOS 2. OS, single density 

Some of our listings are more difficult 
to type in than others. If you are just start- 
ing, we strongly suggest that you first try 
the shorter listings and avoid the frustra- 
tion of typing in very long listings with 
Atari special characters. 

When using TYPO II, be careful that 
you have typed in every line. It's not so 
hard to miss one entire line and TYPO 
II won 't spot it. If you 're sure all the lines 
are there and the program still won't run, 
recheck each TYPO II line code. —ANTIC ED 
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THE #1 SYSOP 

Ron Luks of SIG*ATARI 

by MICHAEL CIRAOLO, 
Antic Associate Editor 



Once you read this latest issue of 
Antic, log onto CompuServe and 
type GO ANTIC—you'll see a 
preview of the magazine's NEXT 
issue!! 

In the ANTIC ONLINE preview, 
you'll find a comprehensive look at 
all the stones and programs in the 
next Antic Magazine — the July 
Computer Challenges issue. 

You'll even find a major excerpt 
or two from the upcoming issue's 
featured articles — such as our Atari 
chess software tournament or our 
interview with the boss of Strategic 
Simulations, Inc. 

And as a special CompuServe 
bonus, you can now download 
from SIG" * Atari the complete pro- 
gram that won Antic's Color-The- 



Cover Contest. This scrolling two- 
screen picture won't be on the 
monthly Antic Disk until next issue, 
even though you'll find its photo in 
the current magazine. To download 
this file, type DL4 at the SIG*Atari 
prompt. This puts you into Data 
Library 4, where BRO WINNER.* is 
what you type next. If you're using 
an Xmodem protocol program (such 
as HomePak or Chameleon) choose 
the WINNER.XMO file. Wit 
TSCOPE, use the WINNER.BIN file. 

ANTIC ONLINE special bulletins 
may be downloaded for reprinting 
in newsletters of users groups affili- 
ated with the Antic Worldwide Users 
Network. Officers of Atari use 
groups may write to the Antic WUN 
Coordination for details. 



Back when the IBM PC had just come 
out and Ron Luks was thinking about 
buying one, a friend showed him 
Atari's classic Star Raiders game. Luks 
bought an Atari to play with while he 
was on the IBM waiting list. As it turn- 
ed out, he never bought an IBM PC. 

Instead Luks, 33, became the 
system operator (sysop) of SIG*Atari 
on CompuServe — the world's largest 
Atari bulletin board, with some 6,000 
enrolled members. 

At the time he bought his Atari, 
Luks was a stockbroker and money 
manager who traded options on the 
American Stock Exchange. Previous- 
ly he had taught scuba diving in Miami 
for a few years. "Fooling around with 
the Atari was light and fun, like a puz- 
zle, after a high-pressure day in Wall 
Street," he said. 

One of Luks's first peripherals was 
a modem. "I got the Hayes Smart- 
Modem, an 850 interface and the 
original TeleLink cartridge, which 
came with a CompuServe Starter Kit." 

EARLY COMPUSERVE 

Back then, CompuServe wasn't pri- 
marily concerned with sponsoring 
special interest groups (SIGs). So 
when Luks first logged onto the 
system, he "looked all over for the 
word Atari." It wasn't there. Luks then 
began to spend time in the Popular 
Electronics magazine online edition. 

"In those days, the network had no 
online sysops, no help. It was like a 



big puzzle," Luks said. "I kept leaving 
messages — How can I do this? Why 
can't it do that?" The messages were 
picked up by the sysop about once a 
month. 

CompuServe finally collapsed 
under Luks' badgering. "They made 
me an assistant sysop and gave me a 
free flag," which meant he would 
have free access to the network. This 
was a good deal for a man who had 
monthly connect bills "approaching 
four figures". 

FILLING PCS-132 

One thing led to another, and Luks 



was soon allowed to set up an Atari 
board. "They said There are some 
empty pages at PCS-132' and I got to 
fill them up." Luks took as assistant 
sysops a few of the most active mem- 
bers interested in Atari — such as 
Michael Reichmann of Batteries In- 
cluded and programmers Steve Ahl- 
strom (SynFile+ , PaperClip) and Russ 
Wetmore (Preppie, HomePak). 

After an all-nighter over cappuc- 
cino in Greenwich Village, Luks came 
up with the name SIG*Atari. "It's dif- 
ferent from 'the Atari SIG,' the 'Radio 
Shack SIG' and so on. Atari is a word 
continued on page 19 
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Dorset 



For Your Atari Computer 

TRS 80 Color I, III & 4 • Apple • Commodore • IBM PC Jr. 




I Software 




the Cost- 
Efficiency 
Test! 



For computer assisted instruc- 
tion, our software more than 
passes the test.. .it EXCELS! With 
over 1000 educational programs 
designed specifically to concen- 
trate learning for all users, from 
kindergarten level to advanced in- 
dividual studies, from slow learn- 
ers to exceptionally bright stu- 
dents, you'll get positive results 
with our quality, economically- 
priced courseware. 



• 500 Programs Available for TRS 
80 Color; 400 for IBM PC Jr. 



You tfay be able to 
reduce your taxes by 




- incoae 
auerag ing 

- incotte 
spl itt ing 

- tax shelter 








Interactive 

Over 1000 Programs with Fu 

We're Your Educational 
Software Source 



Course 

Reading 

Mathematics 

Comprehension 

History 

Algebra 

Spelling 

Government 



No. of Programs 

256 
128 

48 

32 

16 

16 

16 



16 Programs in each of the following: 

Carpentry - Electronics - Health Services 
Office Skills - Statistics - First Aid/Safety 
Economics - Business - Accounting 
Psychology 
AND MANY MORE! 
Dealer inquiries welcome 



Tutorial Programs 

II Time Audio Narration, Pictures & Text! 

Atari 400/600/800/1200 computers require the Atari cassette recorder and the Dorsett 
4001 Educational Master Cartridge, $9.95. Apple II, TRS 80 I, III, & 4, and Commodore 64 
computers require respective conversion kits (plug-in board and stereo cassette 
player), $99.00. For the IBM PC Jr. a cassette adapter cable and a good cassette 
recorder are required. A Radio Shack CCR-81 or CCR-82 is recommended. 
$59.90 for an album containing a 16-program course (8 cassettes with 2 programs, each 
at $3.75 per program). $8.80 for a 2-program cassette. 

Send for a catalog of over 1000 programs for Atari, TRS 80, Apple, etc. 
For more information, or to order call: 

TOLL FREE 1 -800-654-3871 

IN OKLAHOMA CALL (405) 288-2301 

H5) DORSETT 

Educational Systems, Inc. 

Box 1226 DeptA Norman, OK. 73070 



(Mostipord) 



VISA* 



logo [" 




TURTLE PIANO 

Easy Logo keyboard music 



A simple but adaptable Logo pro- 
gram that plays a musical scale from 
the Atari keyboard. Works on all 
Atari computers of any memory size. 
Disk or cassette. 



Children love to sit in front of a piano 
keyboard and pound out simple 
melodies. The child's joy comes from 
immediate success at making music 
and a rare chance to control the 
environment. 

With an Atari, Logo and just a few 
short commands, children can have 
the same kind of musical fun they 
would have with a piano, but with a 
little extra learning thrown in. 

Turtle Piano converts the computer 
keyboard's home row— A, S, D, F, G, 
H, J, K, L, ;, + and *— into a 12-key 
piano that plays a do-re-me scale in 
the Key of C without sharps and flats. 

It also changes the screen turtle into 
an eighth note which jumps around 
to the appropriate spot on a musical 
staff whenever a note is played. As 
each note is played, its letter-name is 
also printed on the screen. 

Turtle Piano can also remember 
your compositions so you may listen 
to them over and over again. 

Though it is not a particularly com- 
plex program, Turtle Piano is an 
engrossing project for young com- 
puter users and programmers. So type 
in Listing 1 and SAVE a copy before 
you RUN it. 



by CRAIG McBAIN 

HOW IT WORKS 

BEEP, the heart of the program, uses 
the first sound channel (TOOT 0) to 
play the notes. After you have typed 
in the BEEP procedure, if you type 
BEEP followed by a number greater 
than 14 you will hear a nice note. The 
number 260.7 will give you Middle 
C. Why? A violin string (or anything 
else) vibrating at 260.7 cycles per se- 
cond produces a Middle C. 

The PLAY procedure ties the home 
row keys to their assigned pitch 
values. If a key is pressed which is not 
one of the home row keys, PLAY will 
output a frequency of 50000 (too high 
to hear). So you can use the space bar, 
for example, as a rest between notes. 
PLAY, using the SETY command, also 
draws the turtle on the staff. 

Type BEEP PLAY "A to hear Middle 
C. PLAY takes the input character [A] 
and searches for its corresponding 
pitch value (260.7). PLAY passes this 
value to BEEP, which plays the appro- 
priate note. 

Note the relationship between the 
values for Middle C (260.7) and High 
C (521.5) in the PLAY procedure. 
Now, look at the values for the E and 
F tones. The higher note in each pair 
is double the pitch value of the lower 
note. This is always true. BEEP2, the 
next procedure, uses this fact to pro- 
duce interesting results. 

Try BEEP2 a few times and com- 
pare it with BEEP. It uses the second 



sound channel (TOOT 1) to play a 
tone which has half the pitch value 
of the first note. For example, if you 
press the [A] key, BEEP2 plays Middle 
C and the tone one octave below it. 

We use the GET. NOTE procedure 
to check the keyboard and store our 
notes. GET. NOTE passes each note to 
the REMEM procedure, which stores 
the notes in the variable LINE. 

Type [START] to run the program. 
Now, press the [Y] key to start the 
piano. This invokes the START pro- 
cedure. The [C] key calls the CLEAN- 
UP procedure which erases the text 
window and erases all your old tunes 
stored in LINE. If the [R] key is 
pressed, the REPLAY procedure will 
replay the list of notes stored in LINE. 

The procedure REPLAY is really 
tricky. This recursive procedure re- 
moves the top note from LINE, plays 
it, and discards it. Then, it starts again, 
playing the first note on the shortened 
list. REPLAY continues to remove 
notes from the top of LINE, play them 
and discard them until LINE is empty. 

The graphics portions of the pro- 
gram need little comment except 
perhaps for the LOGO names "STAF- 
FHI, "STAFFLO, and "NOAT. Don't 
forget to type these, too. These vari- 
ables contain lists of numbers which 
tell the computer how to reshape the 
turtles into musical notes. The turtles 
are reshaped in the SETUP procedure 
with the PUTSH command. 

continued on page 19 
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(Tinon. 
Cut it out! 

Can $79.95 buy me an Atari 1030 Modem 
and software package? 



YES! An Atari 1030 Modem guaranteed to 
work with your Atari Computer can be yours— 
all you need is at least 16K and a telephone 
line— you don t even need a disk drive. 

The Atari 1030 Modem is an easy 
to use, high tech, high qual- 
ity modem which auto- 
matically uploads to your 
Atari Computer. 

And, with a disk drive you 





can take advantage of the disk communication 
software (included at no extra cost). This free 
package also includes introductory subscriptions 
to Compuserve (access to hundreds of free pro- 
grams) and Dow Jones Retrieval Services at 
no additional cost. 

Cut it out! Don t wait! Act now! 
Take advantage of this incredible 
offer— Atari quality at a lower 
price than any other modem! 

NO INTERFACE REQUIRED 



Send coupon to: 
ADD-ON Systems - 524 2nd St., San Francisco, CA 94107 



YES! I want this extraordinary communications value! Fm ordering now so I can receive: 

• 1 ATARI 1030 300 baud modem with built in software • Free Introductory Time on: Dow Jones, Compuserve - Disk Communications Software 



The suggested retail value is $199.95 MY PRICE IS ONLY $79.95. Send me _ 



. number of packages at $79.95 per package to: 



Nan 



Address 



City 



State 



Zip 



Please make check payable to ADD-ON Systems. Credit Card Orders Only Call Toll Free 



Payment enclosed □ check □ money order 
Bill my □ Mastercard □ Visa 



ID# 



Expires 



800 227 1617 X133 
800 772 3545 X133 (inside CA) 
California residents add 6Vi% sales tax. 
Add shipping charges of $2.75 per modem. 



Canadian residents please send U.S. dollars. 
Allow 2-4 weeks for delivery. 
Prices subject to change without notice. 
Delivery subject to availability. 



ANTIC AT THE FIRST 
GEM SEMINAR 

Converting IBM PC software to Atari 

by NAT FRIEDLAND, Antic Editor 



#%ntic was the ONLY Atari 
Jjjpjk Magazine present at the 

^^^^%first GEM Software Devel- 
^ topers Seminar held at 

Monterey, California in February by 
Digital Research, Inc. DRI created the 
"Macintosh-like" GEM operating in- 
terface that is being used for the new 
16-bit Atari ST computers. 

GEM has aroused especially wide 
interest in the computer industry 
because it's supposed to make it sim- 
ple to convert software between the 
IBM PC and clones, the Macintosh, 
the Atari ST and any other computer 
that GEM licenses a version for. 

Some of Atari's top technical execu- 
tives were on hand, debuting a work- 
ing ST with a preliminary version of 
Atari GEM burned into ROM. 

Antic was told that Atari still con- 
siders itself on schedule for bringing 
the first production ST computers 
onto the market in April. Full ST pro- 
duction capacity won't be reached 
until June. The 10-15 megabyte hard 
disk for the ST will show up in the 
summer. 

ATARI CAD/CAM? 

Remember the 32-bit Atari we re- 
ported Jack Tramiel talking about at 
his November press conference? Well, 
apparently it is well along in develop- 
ment. Atari still hopes to meet 
Tramiel's goal of unveiling the 
machine at the April electronics fair 
in Hanover, Germany. 



Every time Atari engineers talked 
about the 32-bit computer in Mon- 
terey, delighted smiles appeared on 
their faces. The computer was de- 
scribed to Antic as a "VAX minicom- 
puter on a chip" and a "$40,000 CAD/ 
CAM computer graphics workstation 
that will sell for under $2,000." 

LEARNING ABOUT GEM 

As for the GEM Seminar itself, the 
$800 workshop was highly technical 
and directed at professional con- 
sumer-software programmers who 
were thoroughly experienced with 
the C language or with Macintosh 
window program development. 

The Seminar sessions were taken 
up with highly detailed discussions of 
GEM development nuts and bolts 
such as the strict interfacing pro- 
cedures which are supposed to make 
"porting" GEM-based programs be- 
tween different computers a routine 
one-day process. 

Access to GEM windows, debug- 
ging, and correct embedding of trans- 
fer hooks were among the other tech- 
nical topics discussed. All attendees 
were given the two-volume GEM 
Toolkit documentation. DRl's recom- 
mended professional development 
language was Lattice C, which costs 
around $500. 

It should be noted that the Seminar 
was specifically dealing with the just- 
completed IBM PC version of GEM. 
Six-disk beta test editions of GEM 



were being sold to developers by DRI 
for $500. The GEM Library software 
of prepared graphics routines cost 
extra. 

The Atari version of GEM was not 
yet ready for beta testing at the time 
of the Seminar. 

WETMORE SUMS UP 

Russ Wetmore, author of Homepak 
and Preppie as well as other major 
Atari programs, flew in from his Flor- 
ida homebase to attend the seminar 
and then stayed on to see the Mac- 
World Show in San Francisco. 

He spent time at Antic during this 
period and shared with us the view- 
points of a highly experienced Atari 
professional programmer. 

"I think the developers at the 
Seminar fell into two groups. One 
group is totally sold on the GEM goal 
of making a lot of different computers 
compatible with each other," said 
Wetmore. "And for now they are will- 
ing to overlook any unanswered ques- 
tions that came up during the ses- 
sions. The second group is taking 
more of a wait-and-see attitude." 

Wetmore expresses some doubt 
that GEM software will port between 
different computers as easily as DRI 
says it will. He also feels that GEM 
lacks certain built-in features found in 
the Macintosh interface — such as a 
text editor — which will make it more 

continued on pase 19 
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SURVIVAL OF 
THE SMARTEST 




Oil* 



Here are just a few of many screens. 




THE CHALLENGE. 

Over 2000 stimulating trivia/fact questions will send 
you rummaging through your personal memory banks. 
Answer correctly and advance in your quest while 
adding more gold to your treasure. Fail and you lose 
ground. 



1 1 1 1 4 £ i m I 
IP I 
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PKACOft STRCHCTH 



THE ACTION. 

You may have to face and battle a ferocious dragon. 
If you prevail, the dragon's cache of gold will be added 
to your treasure. If you fail, your journey will be slowed 
while you heal your wounds. 



4 m 4 vRWvEh'A. 



THE STRATEGY 

Each questing party consists of three characters, a 
Knight, Prince and Page. Each has distinctly different 
physical characteristics, and all must complete the 
Quest. You must decide when to send them on to the 
next challenge. 



Atari is a trademark of Atari, Inc. 

©1984— Royal Software 



the 

$ 




f °n t n nt 




This 

exciting new 
concept in computer 
entertainment will keep you 
and your friends involved for hours and 
hours. This is probably the best party-game 
ever developed, and new question disks will be available. 
Optional: Utility disk which allows you to create unlimited trivia questions 
and answers for educational or entertainment. The utility disk also includes 
over 1000 additional questions. Utility disk $24.95. 




"Software fit for a king!" 

2160 W. 11th • Eugene, OR 97402 • (503) 683-5361 

Ask for Trivia Quest at your favorite Atari Computer Store 
or order directly from Royal Software. Use your Master- 
Card, Visa, American Express, or send check or Money 
Order including $2.90 shipping and handling. 




by LYN BUCHANAN 



T^he Atari's graphics capabili- 
ties are the best you can get for 
anywhere near the price. The 
problem most of us run into is 
that our pictures LOOK as if we did 
them ourselves. 

This doesn't need to be the case, 
however. Pixel Scanner will perform 
automatic computer enhancement of 
a picture by using a process called pix- 
el averaging, which gives a depth and 
fullness to an otherwise flat picture. 

And that isn't all. By tinkering with 
this program a little, you can simulate 
the sophisticated computer enhance- 
ments used by NASA to bring out 
small details in satellite photos. 

To get started, type in Listing 1, 
check it with TYPO II, and SAVE a 
copy. 

The program includes a demonstra- 
tion picture of a stick figure bird in 
Graphics 9 (lines 200-270), and the 
pixel averaging routine (lines 100-161). 
The picture was made using simple 
PLOT and DRAWTO commands; if 
you're enterprising, you can create 
your own picture by changing these 
commands in the demonstration 
picture. 

The stick figure is drawn at the top 
half of the screen, leaving room for 
the enhanced version at the bottom. 

HOW IT WORKS 

After the picture is drawn, the pro- 
gram looks at each pixel and its sur- 
rounding pixels, then places their 



This BASIC program intmduces you 
to pixel averaging— an advanced 
graphics technique similar to the 
method NASA uses for enhancing 
satellite photo details. Pixel Scanner 
works on all Atari computers of any 
memory size. Disk or cassette. 

values into variables. This is done 
in lines 121-129 by means of the 
LOCATE command, which positions 
the cursor at a specified x,y coordinate 
on the screen and assigns the value 
of the byte for that data to a specified 
variable. 

The format for a LOCATE com- 
mand is: 

LOCATE (x-coord),(y-coord), 
(variable) 

The program then adds the values 
of all the variables together, and 
divides by the number of pixels sam- 

WHAT'S A PIXEL? 

The word "pixel" is computer jar- 
gon for "picture element." It stands 
for the smallest controllable element 
of a screen display. 

Naturally, pixel size is determined 
by computer and video resolution 
limits, as well as by graphics mode 
selection. In Atari Graphics 8 mode, 
for example, a pixel is one scan line 
high by one-half color clock wide— 
which essentially matches the reso- 
lution of a home television receiver. 



pled (line 131). Using that average 
value, it then re-colors the center pix- 
el, to make it blend more smoothly 
with its surroundings (line 14 1). 

PIXEL SEPARATING 

The Pixel Scanner demo program 
blends pixels. It could just as easily 
widen the difference between 
pixels— as is done in satellite photos 
to distinguish between extremely 
small variations. 

To do this, change the way the 
value of K is figured. In line 131, K 
is figured as the average of all the 
variables. It would be just as easy to 
make K vary by, say, 4 times the 
average, if you change the command 
COLOR K (line 141) into COLOR K*4. 

With a little experimentation, you 
will begin to find a wide variety of 
things to do with this routine. Other 
effects can be achieved by sampling 
only certain adjacent pixels and not 
others. 

You might also try changing to 
Graphics 11 (line 201). You'll be sur- 
prised at the beautiful blends of col- 
ors which are produced. 



Lyn Buchanan is a civilian program- 
mer at Fort Meade, Maryland. He is 
also a programming and systems 
analysis instructor. 



Listing on page 58 
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MORE REAL POWER FOR YOUR ATARI 



DESK SET $39.00 



Complete Desk Package 

CALENDAR 

CALENDAR is a perpetual calendar, an appointment 
calendar and also a card file. The perpetual calendar 
is a calendar of every month, past, present or future. 
The appointment calendar allows up to 15 entries to 
be made each day. 

CARD FILE 

The card file is a mail list program which holds up to 
200 addresses. The printing format of card file in- 
cludes continuous lists, labels or envelopes. Files 
can be printed; all the files from one file number to 
another; by zip code; by state or by selected files. 

LETTER WRITER 

LETTER WRITER is a preformatted letter writing 
program. LETTER WRITER can be used for any 
number of applications involving entering, editing 
and printing text. LETTER WRITER is designed to 
be easy to use and does not require extensive train- 
ing. While LETTER WRITER is not a full word pro- 
cessing system, it performs 90% of the functions 
used by harder to use and more expensive word pro- 
cessors. DESK SET also contains a program that al- 
lows you to combine Card File and Letter Writer for 
interaction. 

FINANCIAL CALCULATOR 

FINANCIAL CALCULATOR answers virtually any 
questions concerning the cost of money, loans, and 
interest earned on savings, loans and investments. 
Plus, this program will give a complete interest J 
earned table and amortization table. This program is | 
a must for anyone serious about money. 

FORECASTER 

Forecast future events based on past information. 
Forecast profits, costs, sales trends, prices test 
scores, virtually anything. Edit, save on disk and test 
various elements to determine the outcome. 
FORECASTER is a powerful "what if" program - a 
must for business. 

Two drive - double density - 48K required. 



HOME WRITER $19.00 



The HOME WRITER is an easy to use 
word processor which includes a carefully 
selected group of functions that are at your 
disposal immediately. The functions are as 
follows: SAVE, LOAD, REVIEW, PRINT- 
OUT, or EDIT. All the popular editting fea- 
tures available on the ATARI Home Com- 
puter in direct programming mode are also 
available with HOME WRITER. You may 
also search for phrases or strings, load off 
of either disk or cassette, and number 
pages automatically. Unlike other small 
word processing programs, HOME WRIT- 
ER does not wrap-around when at the end 
of a line. Right and left margin justification 
is available for any type parallel printer. 
48K. 



ASTRA 

Double Disk Drives 





True 
Double 
Density 



Total 
Compatible 




INCLUDES DOS 

Big "D" Double Sided . $595.00 

2001 Two Drive $495.00 

1620 Two Drive $349.00 

1620 quantities are limited. ^ 



r 



SMARTDOS $39.00 



SMARTDOS is 100% density smart. 
SMARTDOS will sense the density of 
each disk in use and automatically recon- 
figure the entire system to that density. 
SMARTDOS does not require that a "sys- 
tem disk" has to remain in the drive, or be 
continually inserted and removed in order 
to use the DUP.SYS commands. 
With SMARTDOS you may Copy with 
query, (eliminates specifying each item 
individually). 

Counter screens - which keeps the user 
informed as to what the system is doing 
and where in the task the system is. 
Disk testing for bad or unusual sectors 
that may be corrected. 
RESIDUP feature allows simple yet pow- 
erful full time availability of DUP.SYS 
commands while leaving your program 
intact and ready to RUN. 
Minimum keystrokes for maximum power, 
e.g. a disk directory is done by pressing 
only one key - the drive number (great 
for filesearches, and " = " may be used to 
replace *.*. 

The ability to run from 1 to 9 autorun files 
sequentially. 

Built in disk drive speed check. 
SMARTDOS is only 34 single density 
sectors long and works with all Atari com- 
puters with a minimum of 24K RAM. 



FILING SYSTEM $19.00 LETTER SYSTEM $29.00 BILLING/INVENTORY $49.00 



FILING SYSTEM allows the user to confi- 
gure any type of data file imaginable. Ex- 
amples are recipe cards, mail lists, remin- 
ders for birthdays, check-ups, etc., com- 
plete inventories (home and business), per- 
sonnel files, customer call-ups, price list, 
and much, much more. You may retrieve 
data using any field or combination of 
fields. Files also may be saved, sorted, and 
printed in a preset format that you confi- 
gure. Uses either a single or a double 
density disk drive. 24K minimum. 



STAT-PLUS $29.00 



STAT PLUS is the most powerful statistic 
tool we have seen. Run sample space, 
mean, variance and standard deviation. Do 
probabilities using binomial, poisson or nor- 
mal distribution. Also, do students' t-test, 
Mann-Whitney U test and Chi Square. Do 
linear regressions; may use 1-12 indepen- 
dent variables, interact a sample from one 
module to another, edit, rank and print out. 
24K min. 



This disk contains both LETTER WRITER 
and MASTER LIST plus the necessary pro- 
gram that allows for combining the two pro- 
grams for interaction. Call a file off disk, 
type a letter and (with the right printer) type 
on envelope, or just run one letter after 
another. All of the powerful features of both 
LETTER WRITER and MASTER LIST plus 
the ability to use them together. 

Includes 35 pre-typed letters. 



ACCESSORIES 



Disk Doubler $14.00 

5' I/O Cable $12.50 

1 ' I/O Cable $ 8.50 

Transformer $18.50 

IBX 10 SS/DD Disks 
w/ plastic box $14.50 

C-5 Data Cassette w/box $ 2.49 

Disk Fix and Cleaning Kit $29.00 



BILLING allows you to do invoices, posts to 
account cards, deductions from inventory 
and payments. There are provisions for 
shipping, discounts, no charge items and 
tax. BILLING also allows maintenance for 
up to 500 customer files, and printing of the 
daily total of billings. A flowchart is given to 
show the step-by-step direction that the 
program takes. Allows for up to 300 inven- 
tory items. 48K. 



DEMONS DUNGEON $19.00 



Queen Isidore's crown was stolen by the 
Demons that live in the deep terrifying dun- 
geon. If the crown is not recovered the 
magic that protects her and the kingdom 
will vanish. Others have tried and died. 
Whoever recovers the crown and saves the 
kingdom will win the hand of the princess 
llena and the Kingdom. 



THE PROGRAMMERS WORKSHOP 

24686 REDLANDS BLVD. • SAN BERNARDINO, CA 92406 
OUTSIDE OF CALIFORNIA (800) 228-6821 
CALIFORNIA (714) 796-6821 



TO ORDER: VISA/MASTERCARD, Check or Money 
Order accepted. If charge, please include expiration 
date. Shipping and Handling - Software $1.50 - Disk 
Drives $10.00. California residents add sales tax. 
Phone or mail. 



Atari 
in 

Lights 

Theater 
lighting designer's 
Atari CA.D. 



by MICHAEL CIRAOLO, 
Antic Associate Editor 

I ames Brentano is the stage lighting designer and 
I lecturer for the Drama Department of U.C. 

jM Berkeley. He has also been a dedicated Atari 
mKr hacker since he bought his 800 back in the days 
when it cost $800. 

When you think about it, designing the lighting for a 
theatrical production is a highly information-intensive 
task. You have to combine dozens of color filters, lights, 
cables and dimmers in order to get the job done. 

"A typical show will require 150-200 lights. For each 
light you must keep track of the following — name or label, 
any one of several hundred colors, circuit which plugs 
the unit into the control board, a dimmer switch and stage 
focus spot where the light is aimed. Also each light unit 
will have different level settings for up to 200 cues," 
Brentano said. 

Designing the lighting for a show traditionally requires 
extensive drafting of diagrams and long lists of each light's 
location, focus and so on. For each show, lights, cables 
and other material also have to be ordered — more 
paperwork. 

Brentano now uses his Atari to handle the entire pro- 
cess. He wrote a BASIC routine to draw the lighting 
characters in Graphic 8, and uses Graphics Master soft- 
ware to produce a design layout template. 

He also uses SynFile+ to keep track of lighting infor- 
mation which can be sorted — by focus, type of light, etc. 
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COMPUTER AIDED DESIGN 

Brentano isn't content to simply turn 
the paperwork over to his Atari. He's 
planning to unite his lighting pro- 
grams and utilities in one system, a 
computer aided design (CAD) pac- 
kage for the Atari. 

"Nobody has yet developed a sys- 
tem where you're simultaneously 
hooked into the stage cues and all the 
lighting unit information," Brentano 
said. 

"For the price of two IBM graphics 
boards and a whistle, I can produce 
a package with an Atari, dot-matrix 
printer, disk drives and the software 
to do all the CAD lighting work," 
Brentano figured. All for around 
$1,000. 

"Ideally you'd have onscreen a pic- 
ture of the lighting diagram, and you'd 
use a light pen or mouse to circle and 
call up all the information on given 
unit." 

After producing a package to do 
CAD lighting design, the next step is 
direct computer control of the light- 
ing board. "The technology of light 
board computers is primitive — the 
interface to all the knobs and controls 
is expensive," the designer explained. 

The light board Brentano uses at 
U.C. Berkeley costs $37,000, not in- 
cluding the dimmers. "That's ridicu- 
lous when an Atari costs $120," Bren- 
tano said. 

''LET'S MAKE A SHOW" 

"It's surprising how many stagehands 




own Ataris — they like to play games. 
And we all play this game together, 
"Let's go make a show". Backstage 
crafts simply offer bigger and more 
expensive toys." 

Brentano maintains that the Atari 
appeals to stagehands because of the 
machine's game tradition and because 
it's not hard to get inside the com- 
puter and play with it. 

"You can do a lot of this design 
with the Macintosh and File Vision," 
Brentano admitted. File Vision is a 
visual database which lets you design 
icons that can be moved around the 
screen. Each icon also represents 
detailed information, such as the 
focus, location and type of each light. 

"But Apple has a certain snobbish- 
ness I object to," said Brentano, who 
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The map and key above are used to tell theater electricians where to hang certain lights, what 
kinds of lights to use, and what focus each light requires. 



believes that the Atari is the best 8-bit 
machine on the market. "Pong is the 
greatest thing since sliced bread." 

LIGHTING BOARD 

Brentano's dedication to the Atari has 
made it the computer of choice for 
a theatrical bulletin board he's 
starting. 

Based on an Atari 800, an MPP 
1000C modem and two disk drives, 
Brentano's bulletin board will cater to 
the theatrical lighting community. It 
will have classified ads for jobs, equip- 
ment and so on. The board will also 
feature electronic mail, hints and tips 
for lighting designers, product reviews 
and comments. 

"Eventually, I want to be able to 
dump a show's files to the bulletin 
board, so rental companies can log 
on, look at the file, and give me a 
price." 

"A problem with theater is that we 
spend $10-20,000 per show. Any way 
to share information saves money," 
Brentano said. "There's a need for a 
clearinghouse of information." 

Brentano's board will be the only 
Atari theater BBS in the country — and 
only the second theater board of any 
kind. It is called JCN (James' Com- 
puter Network). The phone number 
is (415) 562-3364. 

"JCN — it's like HAL in '2001.' HAL 
was from one letter before IBM. JCN 
is one letter after." 

□ 
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You have already 
made your 
first mistake ! 

You thought that cassette recorder 
would handle your storage needs. 

WRONG! 

Don't make 
another one ! 

You think you need a disk drive ^ 
to solve your storage problems. 1 

WRONG/ 

You need 2 
disk drives! 

Any serious application practically 
demands at least 2 drives. 

Word Processing 

Spreadsheet 

Data Base Management 

Mailing List Software 

All of these are made more 
powerful and, at the same time, 
easier to use if you have two disk 
drives. 

So now it will cost twice as much, 
right? 

WRONG! 

You need an Astra single or double 
density dual dish drive. Two drives 
in one low-priced unit. 

Astra Systems now has 
two new models for your 
ATARI: 



ASTRA 2001 

Single or Double Density 
Disk Drive 

■ Advanced Circuitry 

■ Rotary Doors 

■ Direct Drive Motors 

■ 360 Kbytes 

■ Reliable, Quiet Operation 

■ Past Read /Write 

■ Easy Data Read 

ASTRA "BIG D" 

■ Double Sided Drives 

■ Single or Double Density 

■ Direct Drive Motors 

■ 720 Kbytes 

ALL DRIVES FURNISHED WITH 
5MARTD05 OR MYDOS* 

•DOUBLE 5IDED DRIVES 

For nearest dealer or distributor call 
(714) 549-2141 

*flSTflfl SVST6MS, INC. 

2500 South Eairview, Unit L 
Santa Ana, California 92704 



ANTIC AT THE FIRST GEM SEMINAR 

continued from page 12 

difficult for professional programmers 
to work with. 

Despite this, Wetmore was positive 
enough about GEM that he bought the 
Seminar disks and intends to invest 
over $4,500 for a souped-up IBM PC 
to run Lattice C. "But right now any 
GEM programs I publish will just be 
for the Atari," he said, "because it's 
the only computer that a developer 
won't be charged royalties for by DRI 
when the software comes out." Q 



TURTLE PIANO 

continued from page 10 

As stated earlier, this program is 
really pretty simple. Readers are en- 
couraged to make it more special. 
With a little tinkering, Turtle Piano 
could flash different colors with each 
note, extend for another octave or 
two, or include sharps and flats. The 
basic structure can accommodate all 
these changes and more. The only 
rule is to share your ideas by sending 
them to Antic. 

Craig McBain is a third grade 
teacher in ML Clemens, Michigan. 
His wife wishes that Atari Logo had 
never been invented. 
Listing on page 74 H 



THE #1 SYSOP 

continued from page 8 

from the Japanese game Go, and 
S1G *Atari has an oriental sound," said 
Luks, pronouncing the name quickly 
and sibilantly, as one monosyllabic 
word. 

MILLION-DOLLAR SIGS 

SIGs are now the second or third larg- 
est moneymaker for CompuServe, 
bringing in millions of dollars a year, 
Luks said. And he has a well-defined 
niche in that enterprise. 

Luks, the "Godfather of SIG*Atari", 



now works with a CompuServe sysop 
school and a test SIG where new SIG 
software is beta tested. He also helped 
launch the IBM SIG and works eight 
other boards besides SIG*Atari — as 
well as being OnLine Editor of the 
Antic CompuServe Edition. 

Of course, all that takes a lot of time, 
"60 to 70 hours a week," Luks figured. 
As we've found out at Antic when we 
try to get in touch with Luks, the 
phone at his Greenwich Village apart- 
ment routinely gives off a busy signal 
till after 3 a.m. 

And during regular working hours, 
Luks is a freelance computer consul- 
tant to a major Wall Street brokerage 
firm. 

"Nowhere else can you find a more 
knowledgable group on the Atari 
world than on SIG*Atari," Luks said. 
SIG *Atari members gave constructive 
input to Synapse Software during its 
development of the Syn Series. More 
recently they've done the same for 
Batteries Included 's HomePak. 

"Our users decide what service 
they get and dictate policy," Luks said. 
However, Luks insists that users main- 
tain a sense of decorum on SIG *Atari 
and that the board not become a 
haven for pirates. 

FREE ACCESS 

Luks is committed to bringing the SIG 
to as many Atari users as possible. If 
a large users group has never been in 
SIG*Atari before, Luks said he would 
try to arrange free access to the SIG 
for a weekend so the group could 
discover the magic for themselves. 

"If we could get a new machine 
from Atari, we could have 50-60 
public domain programs for the ST on 
the SIG*Atari," Luks claimed. Nor 
does it appear an idle boast. "On the 
Macintosh SIG, we had 50 programs 
when there were only five for sale in 
the stores." 

"All they have to do is ship it. We'll 
do the rest," Luks promised. 

Luks sees his demanding work with 
CompuServe as an investment in the 
future. "We're shaping the technology. 
Also I want to be able to live any- 
where, to be geographically indepen- 
dent and able to work over the 
phone." Q 




YOUR 
SOFTWARE 
RIGHTS 



1. You, the Atari owner, have the right to expect 
a simple, easy-to-use filing system. 

2. You have the right to see your Atari perform 
to its fullest capabilities— using advanced 
graphics, color and sound. 

3. You have the right to expect home productivity 
software that's easy, convenient and natural. 

AND YOU HAVE THE RIGHT TO 
YOUR SATISFACTION GUARAN- 
TEED OR YOUR MONEY BACK. 



We hear you. That's why 
Antic is presenting you 
with Sparky Starks and 
Russ Wetmore's 



TlVh 



HomeCard 



For $24.95, HomeCard gives you an electronic fil- 
ing box. Intelligent Rolodex® with automatic tone 
or pulse dialing of up to 234 telephone numbers. 
Full search ability with the speed of a RAMDISK. 
And the natural convenience of index cards. 




By the author of HomePak 



HomeCard allows you to: 

• chain any number of cards together 

• store up to 234 cards in each box (one disk) 

• create up to 8 major categories and effortlessly 
search any combination of those groups 

• use any 1030 or Hayes-compatible modem 
or T.V. speaker to autodial 

Ideal for home and 
student applications. 

Arcade #RW100 $24.95+shipping & handling 

ORDER NOW reference #RW100 
Use the order form in the Arcade catalog. 
Credit card orders 
call 800-227-1617 (ext. 133) 
in Calif. 800-772-3545 (ext. 133) 

Exclusively from Antic. 
Requires 48Kand disk drive. 
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ATARI® 820 or 822 PRINTER - $39.00 

With Cable and Paper Everything you Need! 



DISK DRIVES 

- New Special Edition 

$1 99.00 or $349.00 w/Happy 

- Reconditioned ATARI® 810 
$1 49.00 or $299.00 w/Happy 

• Happy® Compatible 

• 1 00% Software Compatible 

• 120 Day Warranty 

• Most Durable & Serviceable 




MADE FROM ATARI® 810 BOARDS 
AND TANDON® MECHANISMS 



Everything for the ATARI Systems to Parts 



410 PROGRAM RECORDERS 
CASSETTE - $29.00 



• Star Raiders 
•Touch Typing 

• States & Capitals 

All for $19.95 



• Missle Command 
•Time Wise 

• 2 More Games 



800 Computer Boards 
Complete & Tested 

• Mother Board •CPU Board 

• Power Board • Ram Board 

• ROM Board 

All for $39.00 

- Numeric Keypads w/driver $19.95 

- Disks from $1 .00 each 

- LJK® LETTER PERFECT or DATA PERFECT 



San Jose Computer 

1844 Almaden, Rd. Unit E 
San Jose, CA95125 
(408) 723-2025 





YOU CANT TELL 
A DISK DRIVE 
BY ITS COVER!! 



WITH A HAPPY ENHANCEMENT INSTALLED THESE ARE 
THE MOST POWERFUL DISK DRIVES FOR YOUR ATARI COMPUTER 

WARP SPEED SOFTWARE DISK READING AND WRITING 500% FASTER 

HAPPY BACKUP — Easy to use backup of even the most heavily protected disks 

HAPPY COMPACTOR — Combines 8 disks into 1 disk with a menu 

WARP SPEED DOS - Improved Atari DOS 2. OS with WARP SPEED reading & writing 

SECTOR COPIER — Whole disk read, write and verify in 105 seconds 

1050 ENHANCEMENT — Supports single, 1050 double, and true double density 

810 ENHANCEMENT — Supports single density 

SPECIAL SUGGESTED RETAIL PRICE: Get the HAPPY ENHANCEMENT 810 or 1050 version with the HAPPY BACKUP PROGRAM, 
plus the multi drive HAPPY BACKUP PROGRAM, plus the HAPPY COMPACTOR PROGRAM, plus the HAPPY DRIVE DOS, plus the 
HAPPY SECTOR COPY, all with WARP DRIVE SPEED, including our diagnostic, a $350.00 value for only $249.95, for a limited time only! 
Price includes shipping by air mail to U.S.A. and Canada. Foreign orders add $10.00 and send an international money order payable through a 
U.S.A. bank. California orders add $16.25 state sales tax. Cashiers check or money order for immediate shipment from stock. Personal checks require 
2-3 weeks to clear. Cash COD available by phone order and charges will be added. No credit card orders accepted. ENHANCEMENTS for other 
ATARI compatible drives coming soon, call for information. Specify 1050 or 810 ENHANCEMENT, all 1050s use the same ENHANCEMENT. 
Please specify -H model for all 810 disk drives purchased new after February 1982, call for help in 810 ENHANCEMENT model selection. Dealers 

nOW throughout the world, Call for the number of the dealer closest to yOU. ATARI is a registered trademark of Atari Computer Inc. 



HAPPY COMPUTERS, INC. 



P.O. Box 1268 • Morgan Hill, California 95037 • (408)779-3830 





Let your joystick select program hues! 



by JOHN FELTON 



Take the tedium out of program col- 
or selection ivith this joystick-driven 
BASIC utility. Color Palette runs on 
all Atari computers of any memory 
size. Disk or cassette. 

When the time comes to 
^ ML W se\ea colors for your 
\W new program, it's hard 
T Y to choose among all the 
Atari's 128 colors and multiple 
luminances — if you can't convenient- 
ly compare similar shades. Until now, 
it was a tedious process to find the 
perfect green for your slime monsters, 
or just the right red for the sky over 
Barsoom. You might use SETCOLOR 
in a program, run it, look at it, break 
it, adjust it and start over again. 



USING PALETTE 

Color Palette gives you a better way 
to use the best home graphics com- 
puter on the market. 

Type in Listing 1, check it with 
TYPO II, SAVE a copy, and RUN the 
program. You'll be looking at a 
joystick-driven utility for color selec- 
tion. Listing 2 is the source code for 
the assembly language routines used 
in the BASIC program. You don't need 
to type it in. 

The palette's screen is divided into 
two windows. In the top, you'll see 
12 patches of color, each with its hue 
and luminance numbers and a color 
register value. The lower right corner 
is the background color. 

The bottom half modifies the col- 
or of patches in the top half. Put the 
cursor over the patch you wish to 



modify and press the joystick button. 
You'll now be able to change colors 
by moving the stick up and down, 
and change luminance by moving the 
stick from side to side. Press the trig- 
ger to set that color and move on. To 
see your values, watch the X in the 
lower window 

That's all that there is to it. You 
might note that the top four patches 
are initialized to the Atari default col- 
ors. It is amazing how many programs 
use these four colors just because it's 
easier than looking for better ones. 
Well, no more. 

A three-year veteran of the Atari, 
fohn Felton is a computer science 
major at Cal Poly in San Lids 
Obispo, California. 
Listing on page 64 
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COLOR tne COVER 



CONTEST 



By JACK POWELL and MICHAEL CIRAOLO 




When we invited submissions for 
our Color the Cover Contest, we 
didn't really expect a winner with 
the diligence, creativity and . . . uh 
. . . compulsiveness of Paul Sedge- 
wick. His adaptation of the January 
1985 Antic cover was artistically a 
match for any other entry— but it 
was also a mind-boggling techno- 
logical tour de force. 

The 23-year-old electrical engi- 
neer from Northridge, California 
spends his days producing delicate 
military microwave machines. And 
he put in over 100 hours re-creating 
Antic's cover with redefined 
characters on two scrolling screens. 

Paul decided that the black and 
white Antic January cover needed 
at least five colors, if not more. He 
also didn't think one video screen 
was large enough. 

Wanting the highest resolution 
possible, Paul chose ANTIC Mode 4, 
the only mode which offers both 
high resolution and five colors. 
(Mode 4 is a five-color text mode, 
counting the background.) 

He then photocopied the cover, 
enlarged it and graphed it on a grid 
approximately 40 squares wide and 
50 down— each block representing 
one mode 4 character. 

Next he graphed the cover in even 
finer detail, dividing each block in- 
to a 4x8 pixel matrix. 



34 CHARACTER SETS 

Having done all this preliminary 
paperwork, Paul finally reached for 
his own trusty character set editor. 
Using the editor, Paul redefined 
each character block to match the 
cover. However, there are only 256 
characters in a character set— just 
enough to draw three screen rows. 

Rather than re-use characters for 
different portions of the picture, 
Paul used display list interrupts (DU) 
to actually change character sets 
while the screen was being drawn. 
After each three rows of characters 
on screen, a different set was 
pointed to in memory. 

Paul decided that five colors real- 
ly weren't sufficient, so he used a 
vertical blank interrupt(VBI)todraw 
the picture twice, thus creating ex- 
tra colors by superimposing the 
hues. Two overlapping hues of the 
same luminence created a third col- 
or; two hues of different luminences 
created a vibrating, flickering effect. 

The VBI was also used for vertical 
fine scrolling between two screens, 
which meant the display list instruc- 
tions had to be continually re- 
figured. 

What began as a simple Color the 
Cover Contest entry ended in a four- 
screen phantasmagoria. The VBI al- 
ternates between two screens, and 
the vertical scroll switches between 
two more. After 100 hours of work, 



Paul had created the necessary 34 
complete character sets. With an ac- 
companying assembly language 
program, the entire binary load file 
occupied 316 disk sectors! 

♦ ♦ .AND RUNNERS-UP 

Nearly 150 readers mailed in entries 
to the contest. Just about half the 
entries used the KoalaPad or Atari 
Touch Tablet with accompanying 
Micro Illustrator (AtariArtist) soft- 
ware. Interestingly the second most 
used computer graphics tool was 
"Price's Picture Painter" the power- 
ful program from Antic's September, 
1984 issue. 

Tim O'Connell, of Mastic Beach, New 
york used a KoalaPad to produce his 
strong head-and-shoulders close-up 
of Utility Man. Our distinguished 
panel of judges (Antic editorial and 
art departments) particularly liked 
the way this U-Man seemed to be 
posing for a hero portrait. 

Alfred Gomez of Las Cruces, New 
Mexico spent several sleepless 
nights to produce his entry. Gomez 
demonstrated his good taste by de- 
picting a miniature Antic magazine 
hanging from Utility Man's belt, al- 
though this is too small to see in our 
screen shot. Our judges were also 
pleased with the excellent use of 
contrast and color. His successful ef- 
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and the winner is . . . 



forts "burned my rendition into the 
retinas of my eyes/' He was the only 
entrant to use the Fun with Art 
cartridse. 

Montreal's Gaston Aladin used the 
Atari Touch Tablet and his own soft- 
ware to produce his highly impres- 
sionistic entry. Aladin's work 
demonstrates interesting, complex 
background textures captured in a 
fluid sense of movement. 

Nick TUrner was "inspired to go to 
the limit" of his patience in re- 
creating our cover. This programmer 
from Mountain View, California used 
AtariArtist cartridge with Atari 
Touch Tablet to produce a Utility 
Man that closely resembled our 
cover. Turner displayed well- 
balanced colors, a good sense of 
proportions, and well defined 
shapes. 

When she read about the Color the 
Cover Contest, Marta Taylor ran out 
and bought a KoalaPad to produce 
her entry, one of the more abstract 
renditions we saw. Taylor, who hails 
from Douglasville, Georgia, de- 
picted Utility Man surrounded by a 
fanciful collection of balloons. 
While not a true copy of the cover, 
the entry contains unique imagina- 
tion and a charming, simplistic 

innocence. continued on page 24 



Paul Sedgewick 
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Gaston Aladin 



runners-up 




test first prize is an Indus GT disk 
drive. Runner-ups receive their 
choice of any single item in the Antic 



Arcade Catalog. Nick Turner 
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PRINT SHOP 






WELL WORTH THE WAIT! 



by JACK POWELL, Antic Technical Editor 



i M up. Looks like the dry spell 

Lm for Atari software has finally 
ended. At last, the big guns are 

Jf coming out: EPYX is marketing 
the fabulous Lucasfilm games, Paper- 
clip is on the way, and Alternate 
Realities will finally become a real- 
ity — courtesy of Datasoft. 

Then just the other day a bright 
yellow box came in from Broder- 
bund. The Atari edition of Print 
Shop had finally arrived! 

Print Shop is a graphics printing 
program that Apple owners have been 
enjoying for quite a while. It's current- 
ly Broderbund's hottest selling item, 
and the reason why is easy to see. 
From the bright yellow packaging to 
the foolproof programming, Print 
Shop is so darn friendly you feel like 
Bambi has just toddled into your 
Atari. 

When the package arrived, we tore 
off the wrapping and booted the disk. 
The very first page of the reference 



manual said to ignore the documen- 
tation, start up the program and just 
follow the prompts. Within minutes, 
the Antic offices were littered with 
gaily decorated printer paper. 

If you've always dreamed of being 
an art director, Print Shop is exactly 
what you've been waiting for. You'll 
be cranking out flashy greeting cards, 
stationery, banners and signs, featur- 
ing clever graphics and a variety of 
different type-styles. You can decorate 
with ready-made graphics icons that 
are supplied, or design your own. (My 
own "Opus The Penguin" has been 
very well received.) The results are 
remarkably professional. 

The program is entirely menu- 
driven and leads the user easily 
through the options. In the tradition 
of all Broderbund's Apple-oriented 
programs, there is an almost complete 
lack of sound, but this is essentially 
a utility so it's not too bothersome. 

Before you rush out and buy Print 



Shop, make sure you have a dot- 
matrix printer capable of graphics. No 
matter how nice the program, it won't 
work on your letter-quality Atari 1027 
printer. Print Shop handles most 
graphics printers. They're all listed on 
the box. If in doubt, call Broderbund. 

As fun as it is, Print Shop has its 
limitations. \bu've eight type-fonts to 
choose from and there's no way to de- 
sign your own. The disk comes with 
60 icons or graphic designs. And you 
may also design your own using the 
Print Shop graphics editor, but as 
usual with multiple utility packages, 
the graphics editor is a crude joy- 
stick/Koala Pad pixel editor which 
does not allow for patterned fills or 
other desirable sophistications. 

It would certainly be nice if we 
could use one of the many versions 
of Micro Illustrator to design our 
icons, but this is not the case. And, 
since the disk files have been hidden, 

continued on page 28 
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FANTASTIC PRINTER 

$ 24 95 SALE!! $ 24 95 

Commodore 64 — VIC 20 — A tari 

40 And 80 Column Printers r Up To 100 Characters Per Second ft Full Graphics Capability 
ft Upper And Lower Case ft Advanced Thermal Technology For Quiet Operation 




3150 Alphacom 81-100 CPS 80 Column Printer 

Now you can have a printer for the cost of a 
large box of paper. This printer prints in upper 
and lower case with true lower descenders. 
Comes with 1 roll of paper and power adapter. 
With the intelligent interfaces (sold below) you 
can do Ascii graphics as well as Atari or 
Commodore graphics. Plus you can do 
underlining and expanded modes. Print out 
pictures, program listings, word processing 
pages, etc. Perfect for the student or 
homeowner. List $199.00. Sale $39.95. 

80 Column Extra Paper LIST SALE 

3153 40 Meter Rolls Blue $14.95 $3.95 

3154 40 Meter Rolls Black $19.95 $4.95 
31 55 25 Meter Rolls Blue (2 per pkg.) $19.95 $7.95 
31 56 25 Meter Rolls Black (2 per pkg.) $19.95 $8.95 



3100 Alphacom 42-80 CPS 40 Column Printer 

Print out listings with full computer character 
sets (interface required, see below). Print in 
upper and lower case. Comes with a roll of 
paper and all power adapters needed. Perfect 
for a spare printer or program lister. List $99.00. 
Sale $24.95. 

40 Column Extra Paper LIST SALE 

31 03 25 Meter Rolls Blue $9.95 $3.0C 

3104 40 Meter Rolls Blue $16.95 $3.95 

3105 25 Meter Rolls Black (1 per pkg.) $12.95 $3.95 

3106 25 Meter Rolls Blue (2 per pkg.) $19.95 $5.95 

3107 25 Meter Rolls Black (2 per pkg.) $19.95 $5.95 




3101 Intelligent Commodore Interface — Allows you to 
hook the 40 or 80 column printer to the Commodore 64, do 
program listings, allows software screen dumps, etc. 
Includes Commodore graphics and reverse characters. 
(Specify 40 or 80 Column) List $59.95. 

40 Column Sale $9.95. 80 Column Sale $14.95. 



3102 Intelligent Atari Interface — Allows you to hook 
the 40 or 80 column printer to the Atari computer, do 
program listings, allows software screen dumps, etc. 
Includes Atari graphics and reverse characters. (Specify 40 
or 80 Column) List $59.95. 

40 Column Sale $9.95. 80 Column Sale $14.95. 



Add $10.00 for shipping, handling and insurance. Illinois residents 
please add 6% tax. Add $20.00 for CANADA, PUERTO RICO, HAWAII, 
ALASKA, APO-FPO orders. Canadian orders must be in U.S. dollars. 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. 
Enclose Cashiers Check, Money Order or Personal Check. Allow 14 
days for delivery, 2 to 7 days for phone orders, 1 day express mail ! 
VISA — MASTER CARD — CO.D. No C.O.D. to Canada, APO-FPO 




We Love Our Customers 

Box 550, Barrington, Illinois 60010 

312/382-5244 to order Dept. ANT/6 



JjL Lowest Price In The USA ! 

atari Computer System Sale 

• Students • Word Processing • Home • Business 




Rated "Best Buy" by Consumers Digest Buyers Guide, January 1985 




$449 

LOOK AT ALL YOU GET FOR ONLY ■ ■ ^ 

SYSTEM PRICE 

©Atari 800XL 64K Computer 
©Atari 1050 127K Disk Drive 
©Atari 1027 Letter Quality 20 CPS Printer 

Atari Writer Word Processer 

Atari BASIC Tutorial Manual 



LIST PRICE 
$299.00 
399.00 
399.00 
79.95 
16.95 



INDIVIDUAL 
SALE PRICE 

$109°° 
189°° 
199°° 

39' 5 
12" 



SAVE $100 

All 5 ONLY 
$449<>0 

SYSTEM 
SALE PRICE 



All connecting cables & T.V. interface included. 
. Monitors sold separetly. 



TOTALS 



$1193.90 $549.90 





MONITOR OPTIONS: 


List 


Sale 


Add $9.95 for 


& 12" 


Hi Resolution Green or Amber Screen 


$199.00 


99.00 


Connection Cables 
and $10 for UPS 


V 13" 


Hi Resolution Color 


$399.00 


195.00 



15 DAY FREE TRIAL. We give you 15 days to try out this ATARI COMPUTER SYSTEM! ! If it doesn't meet your expectations, just send it 
back to us prepaid and we will refund your purchase price! ! 

90 DAY IMMEDIATE REPLACEMENT WARRANTY. If any of the ATARI COMPUTER SYSTEM equipment or programs fail due to faulty 
workmanship or material within 90 days of purchase we will replace it IMMEDIATELY with no service charge! ! 



Best Prices • Over 1000 Programs and 500 Accessories Available • Best Service 
• One Day Express Mail * Programming Knowledge * Technical Support 



Add $25.00 for shipping and handling!! Dept. ant/6 
Enclose Cashiers Check, Money Order or Personal Check. 
Allow 14 days for delivery. 2 to 7 days for phone orders. 1 day 
express mail! We accept Visa and MasterCard. We ship 
C.O.D. to continental U.S. addresses only. 



COMPUTER DIRECT 

We Love Our Customers 
Box 1001 , Barrington, III. 60010 

312/382-5050 to order 



PRINT SHOP 

continued from Page 25 

a programming hobbyist would have 
a difficult time writing a conversion 
program. 

One frustrating omission is Print 
Shop's inability to make labels. What 
about all my home-made peach pre- 
serves and canned prunes? 



Nevertheless, Print Shop is the kind 
of program that should appeal to a 
huge audience. I can't think of a bet- 
ter computer gift for children — if the 
adults will let them get their hands on 
it. We really should all thank Broder- 
bund for converting this hit software 
to the Atari. Now if they would only 
buckle down and get to work on an 



Atari conversion of Championship 
Lode Runner. . . 



PRINT SHOP 

Broderbund Software 
17 Paul Drive 
San Rafael, CA 94903 
(415) 479-1170 
S44.95-48K disk 





for the ATARI 800 or XL 



Cut your programming time from hours to seconds, and have 33 
direct mode commands and functions. All at your fingertips and 
all made easy by the MONKEY WRENCH II. 

The MONKEY WRENCH II plugs easily into the cartridge slot of your 
ATARI and works with the ATARI BASIC. 
Order your MONKEY WRENCH 
of these 33 features: 

• Line numbering 

• Renumbering basic line numbers 

• Deletion of line numbers 



I today and enjoy the conveniences 



• Variable and current value 
display 

• Location of every string 
occurrence 

• String exchange 

• Move lines 

• Copy lines 

• Up and down scrolling of 
basic programs 



• Special line formats and 
page numbering 

• Disk directory display 

• Margins change 

• Home key functions 

• Cursor exchange 

• Upper case lock 

• Hex conversion 

• Decimal conversion 

• Machine language monitor 

• DOS functions 

• Function keys 



The MONKEY WRENCH II also contains a machine language monitor 
with 16 commands that can be used to interact with 6 on ftC 
the powerful features of the 6502 microprocessor. 5 cri ."O 



Have You KISSed 
Your Atari Lately? 

Introducing "KISS", a new, simpler, 
more powerful Word Formatter/Processor 
for your Atari 800, 600XL, and 800XL 

"KISS" comes in a cartridge, and is designed for the occa- 
sional user, yet simple enough for beginners and children. 
It comes with an easy to read manual, that contains example 
text files. Check out these other "KISS" features: 



• Input of text is via standard 
ATARI screen editor - so 
there is nothing new to learn 

• Only 13 commands to 
process text 

• Text can be sent to screen 
or printer 

• Single page or fan-folded 
paper can be used by 
printer 



• Prints English error messages 

• The "KISS" cartridge does not 
have to be installed in order 
to input text information 

• Automatic page numbering 
on output 

• Text can be justified to both 
the left and right margins 

• Can be used for letters, reports, 
term papers, etc. 



KISS^ 

Call us today for your "KISS" Only $19.95 




TDV"n 3239 Linda Dr. LZj 

■ I Winston-Salem, N.C. 27106 ■MS^! 

U m- mm I ! 019) 748-8446 

H B Send for free catalog! 
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Your Atari master weaver 



by GERALD M. HAGOPIAN 

Design intricate 3 9- thread weaving 
patterns for the inkle loom with this 
BASIC program. (If you 're a weaver, 
inkle loom won't sound strange.) 
Color Inkle Loom works on all Atari 
computers with 24K memory, 
24K cassette, $2K disk 

Serious weavers regularly face 
the process of selecting col- 
ors and patterns for their 
various looms. And as you 
know, displaying intricate color pat- 
terns is a job that's duck soup for the 
Atari. With the Color Inkle Loom pro- 
gram, you can design patterns for use 
with the inkle loom which — in 
weaver's jargon — is a two-harness 
plain weave loom. 

This program should be a good 
start for Antic readers who might 
wish to develop design software for 
looms that are more complicated than 
the widely used inkle. 

ATARI WEAVING 

Type in Listing 1 and check it with 
TYPO II. SAVE it before you RUN it. 

After the opening screen, you'll see 
a menu. You can choose to Create a 
new weaving, Save a weaving, Load 



a previous weaving, or Exit the 
program. 

If you are creating a new weaving, 
you'll be asked for the number of 
threads per harness, up to 39 each. 
After typing a number, you'll be ask- 
ed if you're sure. Type [ Y] to continue, 
anything else to go back. 

Then choose colors, starting with 
harness #1, thread #1, followed by 
harness #1, thread #2, and so on. In 
each case, you'll be asked for the col- 
or letter — which you'll take from the 
marked band of colors across the 
screen. Once again, you'll be asked if 
you're sure. Type [Y] to continue, 
anything else to go back. 

When you're done choosing colors, 
you'll be asked if you're ready to 
weave. Type [ Y] to continue. You can 
start weaving, or change the intensity 
of the colors you've chosen. With the 
spectrum band's range of 16 colors, 
and the Change Color Value option, 
you can produce any of the Atari's 
colors. 

Gerald M. Hagopian is a freelance 
consulting designer ivorking with 
consumer products and interior 
design. 

Listing on page 60 0 
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They laughed when I sat down at the 800 XL... 



lA kay, I confess. Before I 
settled on writing I was 
U J a committed would-be 

^^■■^^^ musician. As a kid and 
teenager I must have spent hundreds 
of hours teaching myself piano, 
rhythm guitar and chromatic har- 
monica. I played first trombone in the 
high school band, thus becoming 
automatically eligible for a music 
scholarship to state teachers college 
if I had wished to go. 

It was relatively easy for me to pick 
up the rudiments of playing different 
instruments. But there would always 
come a time — much too soon — when 
I ran into the upper limits of my 
musical coordination. I could never 
seem to really master any instrument. 

I used to daydream about some 
kind of future electronic musical in- 
strument coming along that would 
automate things the things I couldn't 
get my fingers to do and let me ex- 
press my musical ideas without being 
an instrumental whiz. Little did I 
know those instruments would be- 
come a reality — even an affordable 
reality — in less than two decades. 

Recently my musical frustrations 
have been much more localized. It 
seemed as if all the good musical soft- 
ware and plug-in computer piano- 
keys from companies like Sequential 
Circuits or Passport were being made 
only for the Apple II or the Commo- 
dore 64. 



by NAT FRIEDLAND, Antic Editor 

1985 ATARI MUSIC 

However, in 1985 all this has changed. 
Some truly phenomenal new musical 
peripherals for our favorite personal 
computer are about to make the Atari 
the new champion of computer-as- 
sisted musicmaking. 

In this article you will read about: 

• A new kind of ' 'music generator" 
software that lets you compose 
and improvise in real-time at the 
Atari keyboard. The four-voice 
sound is tracked by colorful geo- 
metric graphics. Press a couple 
of Atari keys and you'll feel like 
the next Brian Eno. 

• A software and "black-box" pro- 
duct that lets your Atari emulate 
an advanced 16-track digital 
recording studio. 

• A remarkably powerful new 
MIDI synthesizer that sells for no 
more than what an Atari disk 
drive used to cost. 



1. VIRTUOSO 



At a music studio in Queens, New 
York last year you'd find three kids at 
a time sitting in front of Atari com- 
puters and listening on earphones 
while geometric patterns of color 
flashed across the video screen. These 




VIRTUOSO screen. 

kids were taking two-hour lessons in 
creating music on the Virtuoso 
sound generator and when the ses- 
sions were over their parents often 
had to drag them away from the 
machines. 

Virtuoso is such a unique new ap- 
proach to musicmaking that it's not 
easy to describe. It's one of the closest 
things in the real world to the multi- 
arts competitions that Herman Hesse 
wrote about in his classic literary fan- 
tasy The Bead Game. In that book, 
Hesse wrote about chess-like contests 
where one player's move might be a 
theme from a symphony and the op- 
ponent's countermove could be a line 
of a poem or a section of a paint- 
ing .. . 

Virtuoso gives you a user-friendly 
method of tapping the extremely fast 
and powerful changes that a com- 
puter can control in every aspect of 
music performance. It bypasses the 
limits of traditional musical notation 
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MIDITRACK II 

and uses an almost self-explanatory 
color graphic display that delivers 
mathematical insights into the struc- 
ture of music. 

USING VIRTUOSO 

You'd enter a musical pattern into Vir- 
tuoso from the Atari keyboard, or call 
up one from about 480 that could be 
stored on a single disk. The pattern 
would start sounding and the lines of 
colors would trace it visually. At this 
point you could start creating all sorts 
of changes in the pattern — which you 
would hear and see immediately. 

As the pattern was playing, you 
could change its speed, rhythm, 
pitch, tone, volume, key scale, etc. You 
could enter new patterns any time. 
There's even a Future mode where 
you can enter changes before they are 
due to be played. The effect of con- 
trolling so much musical power so ef- 
fortlessly feels something like con- 
ducting an orchestra at the same time 
as you are composing the music that 
it plays. 

In technical terms, Virtuoso is a 
sound generator that produces four 
voices from the POKEY chip. You can 
make instant real-time changes in the 
voices in any of six parameters. Four 
computers running Virtuoso can be 
linked together to have up to 16 in- 
dependent channels controlled by 
one Atari. 



As a sound editor, Virtuoso can syn- 
chronize multiple voices with 1/60 of 
a second accuracy and tune them 
within 10 steps of intonation. Any 
musical passage can be moved any- 
where, saved, and replayed in any key 
and in virtually any rhythm. 

COMING SOON 

This groundbreaking product is a col- 
laboration between former Julliard 
Music Professor Joseph Lyons and 
Frank Schwartz, a highly experienced 
programmer and electronics designer. 
Originally, Virtuoso was financed by 
Warner Leisure Software, who natu- 
rally wanted it for the Atari and in car- 
tridge form. 

After Warner Software shut its 
doors last year, Schwartz and Lyons 
obtained new funding and are hop- 
ing to have Virtuoso on the market by 
August. At this point, Virtuoso is to 
be on disk, available for either the 
Atari or Commodore 64, and priced 
at about $50. 

Not only that, a $150 MIDI inter- 
face for Virtuoso is also being readied 
for August release. Virtuoso will there- 
fore be usable as a visual language for 
MIDI controllers — not only for music, 
but also for lighting and sound effects, 
lasers, etc. Once again, shades of 
Hesse's The Bead Game. 



Lyons and Schwartz are as enthu- 
siastic about the Casio CZ-101 syn- 
thesizer as Antic is, and Virtuoso will 
definitely run on this outstanding 
electronic instrument — which will 
provide even greater power, versa- 
tility, sound quality and handling ease 
than the Atari POKEY chip. 

PLEASE NOTE that Virtuoso is a 
product that is still under develop- 
ment and has not yet been released 
at this writing. Antic will print more 
news of Virtuoso as soon as it be- 
comes available, so please do not 
phone or write us asking where to get 
it yet. 

How does Antic know that Vir- 
tuoso is for real? There are two rea- 
sons. 1. We have heard (and seen) Joe 
Lyons play four-part Bach Fugues on 
it. 2. Antic has a first-generation Vir- 
tuoso cartridge that Frank Schwartz 
gave us. 

Our prototype Virtuoso cartridge is 
packed solid with microchips and ac- 
tually a plug-in board. Its music gen- 
erating functions are 100% in work- 
ing order, but figuring out how to play 
it from only the skimpy documenta- 
tion notes is not too easy. At present 
you'd need Lyons standing over your 
shoulder to explain things, the way he 
does in his studio lessons. 

Thats why the final development 
work is concentrated on making Vir- 
tuoso even friendlier to operate. There 
will be icon menus, an inexpensive 
membrane keyboard for musical in- 
put (if you're not using a MIDI instru- 
ment), and six levels of complexity 
that will gradually take you from 
beginner to expert status. 

% MIDITRACK II 

MIDITRACK II has been wowing 
them at computer shows and musical 
instrument shows since last fall. It's 
available at various professional-music 
stores around the country or by mail 
from the manufacturer for $349. (De- 
tailed manufacturer information will 
be found at the end of the article.) 

Interestingly, your Atari will be the 
least expensive component of this 

continued on next pase 
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music system. Bob Moore of Hybrid 
Arts, makers of MIDITRACK II, gives 
a slightly surprising reason why the 
Atari was chosen to drive the system. 

The Atari is the sturdiest of the in- 
expensive lightweight computers," he 
said. "We believed it would have the 
best chance to survive a long profes- 
sional road tour." 

MIDITRACK II disk software and 
the included MIDIMATE interface box 
work with any Atari that has 48K 
memory. The Atari itself does not pro- 
duce any sounds with its POKEY chip 
here. It simply acts as the controller 
for up to 16 channels of information 
transmitted by MIDI instruments. 

WHAT'S MIDI 

MIDI stands for Musical Instrument 
Digital Interface. It's a set of electronic 
standards — just as ASCII, RS-232 and 
Parallel Centronics are standards — 
that allows electronic musical instru- 
ments to coordinate and exchange 
digitally encoded sound information. 

Moore, who was primarily a 
Hollywood studio musician before 
coming up with the idea for MIDI- 
TRACK II, said, "If you've already got 
an Atari and disk drive, it should cost 
you no more than $ 3,000 to have a 
fully professional digital recording 
setup. (To just have fun with your Atari 
music system, you could get away 
with $500 or less. More on this later.) 

What you need for a fully profes- 
sional system is a main synthesizer, a 
drum machine, and probably a se- 
cond synthesizer to give you a bit 
more variety of sounds. The second 
synthesizer doesn't even need to have 
a keyboard because you can play it 
from the main synthesizer. 

At the other extreme, you could 
theoretically daisychain huge gangs of 
MIDlMATEs and electronic instru- 
ments. You could mix 16 completed 
tracks onto a single track, make 15 
new tracks and mix everything down 
to track 2, and then repeat the pro- 
cess. You could run a symphony or- 
chestra of synthesizers from a single 
Atari, even a stadium filled with 
synthesizers. . . 

Normally the way you'd operate a 
MIDITRACK II system is something 
like this: First you'd set up a drum pat- 



tern and record it on track 1. Next 
you'd adjust your synthesizer to 
sound like a bass and play an accom- 
paniment onto track 2. With your 
"rhythm section" in place you could 

Figure 1 
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A typical system hook up is shown in figure 1 . 
Note that synth A is the master synth because 
both its MIDI IN and MIDI OUT are connected 
to the MIDIMATE interface box. 



then start layering all sorts of in- 
teresting synthesized sounds on top 
to make melodies and harmonies in 
the rest of the available tracks. 

STUDIO IN A BOX 

Once you were finished, you would 
have a fully edited arrangement for 
MIDI instruments which you could 
then record on tape for combination 
with vocals or non-MIDI instruments. 
The length of the music you could 
save would depend somewhat on 
how many notes were in the piece. 
The limit per file is 3,000 sequenced 
notes. 

By the way, usually you can simul- 
taneously call up more than one track 
from a single MIDI instrument. Many 
synthesizers could give you as much 
as 8 simultaneous tracks. 

On the whole, the MIDITRACK II 
documentation is excellent. Once you 
have plugged everything in, the 



manual suggests that you simply press 
your Atari spacebar, play something 
on your synthesizer, and then press 
the spacebar again. That's all it takes 
for a recording and playback! 

One of our testers kept losing his 
music at first, every time he tried to 
save a track. But once he figured out 
that this was caused by holding down 
the Inverse Video key too long dur- 
ing the save command, there were no 
problems. 

MIDITRACK II is designed to op- 
erate like a professional multitrack 
tape recorder. So it contains all the 
features you would normally expect 
to find in a recording studio. All 16 
tracks are independent unless you 
mix them together. You can syn- 
chronize tracks or change the speed 
of the entire recording. You can over- 
dub or transpose tracks. You can 
automatically locate any spot on the 
recording. You can "punch in" any- 
where to record difficult passages one 
note at at time. 

MIDITRACK II even supports the 
advanced technique of quantization, 
or autocorrect. For example, if your 
timing was a bit uneven when you 
were trying to play that flashy bass 
part you could set the notes to 
automatically come out on the beat. 



3, CASIO CZ-101 



Most Atari owners who buy MIDI- 
TRACK II will probably decide to use 
the new Casio CZ-101 synthesizer as 
their primary keyboard. That's be- 
cause the CZ-101 sells for about one- 
fourth the price of any comparable 
synthesizer! It lists for $499 but has 
been on sale at Macy's for as low as 
$300. 

The instruments that Bob Moore 
brought along to demonstrate MIDI- 
TRACK II were the Yamaha DX7 syn- 
thesizer which has a list price of 
$1,995 and the Yimaha RXII drum 
machine which lists for $895. Both 
of these instruments are very popular 
with professional musicians and are 
not considered unusually high-priced 
in comparison to the competition. 

At the time, Moore told Antic that 



32 



ANTIC, The Atari Resource 



a new low-priced but powerful syn- 
thesizer from Casio was due to be 
released shortly and it would ap- 
parently be at least somewhat com- 
parable with the DX7. Well, the 
CZ-101 was shown at the Consumer 
Electronics Show and Casio kindly let 
us have one to use with our MIDI- 
TRACK II. 

ST OF SYNTHS 

We swiftly discovered that the CZ-101 
is considerably more than merely a 
stripped-down version of the DX7. In 
fact, this Casio could almost be con- 
sidered the Atari ST of sythesizers — 
it delivers far more "power without 
the price" than anything else in its 
class. Despite the Casio brandname 
we are talking about a real synthesizer 
here, not an "electronic music-maker" 
with one-key chords and preset drum- 
bass patterns. (It doesn't have a built- 
in speaker either.) 



Figure 2 
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Fig. 2 shows an example of an envelope using 
all 8 steps. In this example, there are two 
attacks before the Sustain Point as well as a 
third attack after releasing the keys. This shows 
how you even have the possibility of setting 
an "after-envelope". 

In many ways the CZ-101 is even 
more versatile than earlier, more cost- 
ly synthesizers. A review in the March, 
1985 issue of "Keyboard," the top 
magazine for electronic keyboard 
players, concludes, "The CZ-101 
makes good use of the latest digital 
technology. Its attractive features in- 
clude seven excellent envelope gene- 
rators, good-sounding waveforms, 
and several doubling modes for buil- 
ding up complex timbres. As an inex- 
pensive and versatile MIDI slave 
module, it could be a very effective 
addition to almost any stack." 

Upon translation from synthesizer 
jargon, what this means is that the 
CZ-101's strongest point is its wide- 
ranging capability of creating and 
manipulating synthesized sounds. It 



has more waveforms, envelopes, 
oscillators and more ways to combine 
these soundmaking elements than 
most previous synthesizers. 



multitrack compositions featuring 
your own synthesized sounds almost 
as soon as you've got your system 
cabled together. 



Figure 3 
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CASIO CZ-101 



In this instrument you'll find a full 
assortment of standard high-end syn- 
thesizer features such as pitch-bend 
wheel, ring modulator, portamento, 
octave shift, detune control, phase 
distortion sound generator. 

16 INSTRUMENTS 

The CZ-101 starts you off with 32 
factory-preset sounds — flute, electric 
piano, violins, organ, etc. — that range 
from okay to pretty good. You can 
reprogram 16 of these sound 
"patches" to hold your own sound 
creations (you can bring back the fac- 
tory patches anytime). Also there's a 
slot for additional 16-patch program- 
mable cartridges. 

People who play piano by ear and 
can only play in one key (usually 
either all white notes or all black 
notes) will deeply appreciate the 
transpose button that will instantly 
shift you into even the most complex 
key (four flats, five sharps, etc.). 

The CZ-101 has 49 keys of standard 
"mini-keyboard" size. Purists may in- 
sist that only full-size keys will do, but 
personally I enjoy the feeling of span- 
ning left-hand tenths as effortlessly as 
I would reach octaves on a full-size 
keyboard. 

A GREAT TEAM 

The CZ-101 works in combination 
with MIDITRACK II remarkably effec- 
tively. You don't need to be a musical 
genius to record and playback flashy 



And you can dramatically change 
the synthesizer voicings during play- 
back and hear your new sounds in 
real time. Or if you tinker with the 
playback of the demonstration songs 
provided with MIDITRACK II you can 
try out sounds as unique as a Mozart 
Sonata being played on a vibraphone 
or jazz organ. 

So tune up your Atari and unlock 
your creativity. With MIDITRACK II, 
the Casio CZ-101 and Virtuoso, you 
might very well be world's next 
musical genius! 

MANUFACTURERS 

MIDITRACK II 
Hybrid Arts 
P.O. Box 480845 
Los Angeles, CA 90048 
(818) 508-7443 
$349-48K disk 

CZ-101 SYNTHESIZER 
Casio, Inc. 
15 Gardner Road 
Fairfield, NJ 07006 
(201) 575-7400 
$499 (Suggested list) 

VIRTUOSO 

Enhanced Technology Associates 
125 W. Duke Ellington Blvd. 
New York, NY 10025 
S50-48K disk 
$150— MIDI interface 
(Available August 1985 or later) 

□ 
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POWER WITHOUT THE PRICE 
ATARf AT - ■ COMPUTER CREATIONS 




COMPUTERS 

Atari 1 30 ST 

Atari 520 ST 



ATARI HARDWARE 

COMPUTERS 

Atari 800 XL CALL 

Atari 65 XE FOR NEW 

Atari 130 XE PRICES 

DISK DRIVES 

Atari105 ° CALL Atari SF 324 (3W' floppy disk 250K) 

Indus GT (Free Software) FOR Atari SF 354 (3V?" floppy disk 500K) 

Astra2001 NEW Atari SH 317 (3 V?" hard disk 10 MB) 

Astra "Big D" PRICES Happy Enhancement for Atari 

810 and 1050 Drives 



» PRINTERS 

Atari XTM 201 (Non-impact 

Dot Matrix 20 CPS) 

Atari XTC 201 (Color, non- 
• impact Dot Matrix 

20 CPS) 

Atari XDM 121 (Daisy Wheel 

Letter Quality 1 2 CPS) CALL 

Atari XMM 801 (Dot Matrix, 

i Impact 80 CPS) FOR 

Atari 1025 (Dot Matrix, Impact 

CPS) NEW 

Atari 1027 (Letter Quality) ... 
i Atari ST 504 (Color Dot Matrix, PRICES 
non-impact 50 CPS) 

EPSON PRINTERS 

LX-80 (80 column) Call For 

; LX-80 Tractor Feed Printer & 

Epson FX-80+ (80 column) . . . Interface 
Epson RX 1 00+ ( 1 35 col.) .... Packages 

STAR MICRONICS PRINTERS 

SG-10 (80 column) 

SG-1 5 (136 column) CALL 

SD-10 (80 column) FOR 

SD-1 5 (136 column) PRICES 

SR-10(80 column) 

' SR-15 (136 column) 

SB-10 

Powertype Daisywheel 

Powertype Tractor Feed 

PANASONIC PRINTERS 

KX-1090 Call 

KX- 1091 For 

KX-1092 Prices 

LQ-3151 

Okimate 10 plus plug n' print 

PRINTER INTERFACE CABLES 

MPP-Microprint 49 

MPP- 1 1 50 Parallel Printer 

Interface 65 

U-PrintA 75 

A- 16 Interface/Buffer 99 

APE Face XLP 65 

APE Face 12XLP 75 

Microbits Microstuffer 109 

PRINTER RIBBONS 

Gemini Printers (Black/Blue/ 

Red/Purple/Brn./Grn.) 5 

Epson Printers 8 

Panasonic Printers, Black 10 

Panasonic Printers, Color 13 



MONITORS 

Atari XC 141 (14" Composite 

Color) 

Atari XM 148(12" CALL 

Monochrome, 80 column, FOR 

low resolution) PRICES 

Atari SM 124 (12" 

Monochrome, 80 column, 

high resolution) 

Atari SC 1 224 (1 2" RGB Color) 

Sanyo 12" Green Screen 79 

Sanyo 1 2" Amber Screen 79 

Sanyo Color Screen, 13" 209 

Sanyo 9" Green Screen 69 

Monitor Cable 7 

Teknika 13" Color MJ 10 209 

MODEMS 

Atari 1030 Direct 300 Band 

Connect CALL 

Atari XM 301 Direct FOR 

Connect 300 Band PRICES 

MPP-1000E Modem 109 

Signalman Mark XII Modem with 

R-Verter 299 

Mark X with R-Verter 169 

Compuserve Starter Kit 24 

UPGRADES/ 
ACCESSORIES/BOOKS 

ACCESSORIES 

Flip n' File 10 4 

Flip n' File 15 7 

Original Flip n' File 50 14 

Flip n' File Cart Case 12 

Library Cases (10 colors) 4 

Disk Bank/5 (Holds 50) 12 

Disk Bank (Holds 10) 5 

Power Strip (6 outlet) 16 

Lineguard Spike Suppressor 13 

Disk Drive Cleaning Kit 13 

MicroMate Paper 

(20#, 540 sheets.) 10 

Computer Paper 

(15#, 3200 sheets.) 30 

Printer Stand (wire) 16 

Dust Covers Call for availability 

UPGRADES: 

Ram Rod X/L W/Omnimon 99 

Omniview for 800 XL 49 

B.I. 80 Column Adaptor Call 

U.S. Doubter 65 

MPP 64 K 69 

BOOKS: 

Lg. selection of titles avail Call 



GENERIC DISKS AT FANTASTIC PRICES! 

SS/DD GENERIC DISKS AS LOW AS 99<t ea. 
Generic 100% Defect-Free/Guaranteed. 

Includes sleeves, labels, write protect tabs, reinforced hub rings, lifetime 
warranty. (2 boxes minimum) 



DISKETTES 2 boxes 

(2 bx. minimum) 3 - 6 boxes 

10 per box 7 -10 boxes 

MORE THAN 10 BOXES 



SS/DD 
$11.99 
$10.99 
$ 9.99 
. CALL! 



DS/DD 
$13.99 
$12.99 
$11.99 



★ ★ DEALER INQUIRIES INVITED ★ ★ 



COMPLETE LINE OF ATARI SOFTWARE 



SOFTWARE 

EPYX 

Dragonriders of Pern (D) 28 

Summer Games 28 

Pitstop II (D) 28 

Ballblazer (D) 28 

Rescue on Fractalus (D) 28 

Temple of Apshai (D) 25 

ACCESS 

Beach Head (D) 24 

Beach Head II (D) 24 

Raid Over Moscow (D) 28 

ACTIVISION 

Decathalon (R) 21 

Pitfall II (R) 21 

Space Shuttle (R) 21 

Ghost Busters (D) 24 

AMERICAN EDUCATIONAL 

Spelling Grades 2 thru 8 (D) . . . . 15 

Reading Comprehension (D) 19 

BATTERIES INCLUDED 

Paperclip (D) 59 

Homepak 35 

B/Graph call 

BRODERBUND Home Pak 

Printship (D) 32 

Spelunker(D) 21 

Stealth (D) 21 

Whistler's Brother (D) 21 

CBS 

Call for items and prices 
CONTINENTAL 

Home Accountant (D) 50 

DATASOFT 

Bruce Lee 24 

Dallas Quest 24 

Conan 28 

Letter Wizard w/speller Call 

ELECTRONIC ARTS 

Archon (D) 29 

Pinball Construction (D) 29 

M.U.L.E. (D) 29 

Murder/Zinderneuf (D) 29 

One on One (D) 29 

Archon II (D) 29 

Music Construction (D) 29 

Realm/Impossibility (D) 29 

Hard Hat Mack 25 

AXIS Assasin 25 

Seven Cities of Gold 29 

Adventure Construction Set 29 

Cut and Paste 37 



INFOCOM 

Cut Throats (D) 24 

Deadline (D) 32 

Enchanter (D) 34 

Hitchhiker's Guide to 

the Galaxy (D) 24 

Infidel (D) 28 

Planetfall (D) 24 

Sea Stalker (D) 24 

Sorcerer (D) 28 

Starcross(D) 32 

Suspect (D) 32 

Suspended (D) 32 

Witness (D) 24 

Zork I (D) 24 

Zork II or III (D) 28 

Invisiclues Hint Books 7 

MICROPROSE 

F-1 5 Strike Eagle (D) 24 

Mig Alley Ace (D) 24 

Solo Flight (D) 24 

OSS 

Action (R) 68 

Action Tool Kit (D) 28 

Basic XL (R) 68 

DOS XL (D) 28 

MAC/65 (R) 68 

MAC/65 Tool Kit (D) 28 

Writer's Tool Kit 68 

ORIGIN 

Ultima III (D) 42 

SCARBOROUGH 

Mastertype 28 

Net Worth 52 

SIERRA ON LINE 

Ultima I 26 

Ultima II 42 

SPINNAKER 

Call for items and prices 
SYNAPSE 

Quasimodo 18 

Alley Cat 18 

Syn-File + 38 

Syn-Calc 38 

Syn-Trend 28 

Syn-Comm 28 

Syn-Stock 28 

Mindwheel Call 

Essex call 

TRONIX 

S.A.M 42 

Chatterbee 28 ' 




To order call TOLL FREE 

1-800-824-7506 



ORDER LINE ONLY 



COMPUTER CREATIONS, Inc. 

P.O. Bo 292467 - Dayton, Ohio 45429 

For information call: (513) 294-2002 (Or to order in Ohio) 

Order Lines Open 8:30 a.m. to 8:00 p.m. Mon,Fri.; 1 0 a.m. to 4:00 p.m. Sat. (Eastern Standard Time). Minimum $10 per order COD (add SI nra r.ll M fr ~ k . ; 
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GUI TAR 
TUTOR 

Learn and play guitar 
chords on your Atari 

by FRANK IMBURGIO and GRACE BARRY 



fell ^.1 a 

CI. *n 




/ 



A program that diagrams and plays 
simulated guitar chords. The BASIC 
listing works on all Atari computers 
of any memory configuration. 

|m mm y £ reat new i:>n) £ nim m 

I m ■ The Works wasn't work- 
I ^# I ing ut all. Rather than 
I W ■ break my new 800XL, 
(which was a serious consideration at 
this point), I reached for my guitar. I 
played a song or two while staring at 
the screen, and the idea for Guitar 
Tutor was born. Why not create a pro- 
gram to generate, diagram, and play 
guitar chords: major, minor, seventh 
and minor seventh chord combina- 
tions? 

To use the program, first type in the 
BASIC listing. Check it with TYPO, 
and save an extra copy as a backup. 

A music background is not neces- 
sary to understand or play with 
"Tutor"! The first thing you will see 
is "Pick a note to build a chord on." 
Take your pick from the list given, A 
through G. Then you will be asked to 
pick a natural, flat, or sharp. After you 
do that, you can pick whether you 
want your chord to be a major, minor, 
seventh, or minor seventh. 

Now the screen will diagram the 
chord for you! These are standard 
guitar chord diagrams used in music 
books. Vertical lines represent the six 
strings of the guitar. Horizontal strings 
represent the frets. Dots represent 
where you press your fingers. X's rep- 
resent strings that are not strummed, 
and O's represent strings that are 
strummed "open", with no finger 
pressing on the string. If two dots are 
on the same fret, "bar" with your 
finger — press more than one string 
down with the flat of your finger. 

If you press "S" at this point, you 
will hear the four individual tones 
which make up the chord you have 
chosen. To the right of the diagram 
you will see a vertical line of eight 
numbers, the eighth reading REST By 
pressing a number from one through 
seven, you can put the chord on the 
screen into a "memory." Now press 
[P] and you can play your chords by 
continued on next page 



Software Discounters 

of America (& Peripherals, too!) 
For Orders Only — 1-800-225-7638* 

Inquires and PA 412-361-5291 
•Free Shipping on orders over $100 in continental USA 
•No surcharge for VISA/MASTEPCARD 




ACCESS 

Beach Head(D) $23 

ACTIVISION 

Decathalon (R) $19 

Designer's Pencil (R) $19 

Ghostbusters(D) $21 

Pitfall II (R) $19 

Space Shuttle (R) . . .$19 
ARTWORX 

Bridge 4.0 (TorD) $18 

Ghostchaser(D) . . . .$16 

Strip Poker (D) $21 

Female Data Disk . . .$18 

Male Data Disk $18 

BIG FIVE 

Bounty Bob's Adv. (R)$33 

Miner 2049er(R) $9 

BRODERBUND 

Arcade Machine (D) $39 

Bank St. Writer(D) . .$43 

Choplifter(D) $21 

Loderunner(D) $23 

Mask of Sun(D) $27 

Operation 

Whirlwmd(D) $27 

Print Shop (D) $29 

Print Shop Paper 

Refill $14 

Serpent's Star(D) . . .$27 

Spelunker(D) $21 

Stealth(D) $19 

Whistler's Brother (D)$19 
CBS 

Astro Grover(R) . . . .$23 
Big Bird Spc. Del.(R) .$17 
Dr. Seuss Puzzle (D) .$21 
Ernie's Magic 

Shapes(R) $17 

Match Wits(D) $19 

Math Mileage(R) ... .$19 
Success w/ Math . . . Call 
Webster Word 

Game(R) $19 

CONTINENTAL 

Book of Adv. Games . $16 

Financial 

Strategies (D) ... .$39 
Home Accountant (D)$44 
DATASOFT 

Bruce Lee(D) $23 

Conan (D) $23 

Dallas Quest (D) ... $23 

DigDug(D) $19 

Letter/Spell 

Wizard (D) $47 

Lost Tomb (D) $19 

Pac Man(D) $19 

Pole Position (D) . . . .$19 
Sands of Egypt (D) . .$17 

Zaxxon(D) $19 

DESIGNWARE 
Creature Creator (D) .$19 

Math Maze(D) $26 

Spellicopter(D) $26 

ELECTRONIC ARTS 

Archon(D) $27 

Archonll (D) $27 

Cut & Paste W.P.(D) .$35 
Financial 

Cookbook (D) $35 

Hard Hat Mack (D) $23 
Music Construction 

Set(D) $27 

One-On-One (D) $27 

Pinball Construction 

Set(D) $27 



Realm of 

Impossibility (D) . .$23 
Seven Cities Gold (D) $27 
EPYX 

Dragonriders Pern (D)$27 

Fun w/Art(R) $19 

Gateway Apshai (R) .$19 
Jumpman Jr. (R) ... .$19 

Pitstop(R) $19 

Pitstop II (D) $27 

Puzzlepanic(D) $19 

Summer Games (D) . . $25 
"with the purchase of ea. 
Epyx title, receive free 
your choice of 
Monster Maze. Plat- 
termania or Star War- 
rior (please give 1st & 
2nd choice) 
FISHER PRICE 
All Titles Available . .Call 
GAMESTAR 
Star Bowl 

Football (TorD) . . $21 
Star League 

Baseball (TorD) . . $21 
HBJ 

Computer SAT (D) . . $49 
INFOCOM 

Cut Throats (D) $23 

Deadline (D) $29 

Enchanter (D) $23 

Hitchhiker's Guide to 

the Galaxy (D) $23 

Infidel (D) $27 

Invisiclues Call 

Planetfall (D) $23 

Seastalker(D) $23 

Sorcerer (D) $27 

Suspect (D) $27 

Suspended (D) $29 

Witness (D) $23 

Zork I (D) $23 

Zork II or III (D) $27 

KOALA 

Coloring Series I (D) .$12 
Coloring Series II (D).$12 
Instant Programmers 

Guide(D) $9 

Spider Eater (D) $12 

Tablet w/Painter (D) ... * 
Tablet w/Painter(R) .Call 
'see our display ad in 

this issue for lowest 

price ever 
LJK 

Data Perfect (D) $49 

Letter Perfect (D) $49 

LEARNING COMPANY 
Bumble Games (D) . $23 

Magic Spells (D) $23 

Moptown Hotel (D) . .$25 
Moptown Parade (D) .$25 

Word Spinner (D) $23 

MICRO-LEAGUE 

SPORTS 

Micro-League 

Baseball (D) $27 

MICROPROSE 

Air Rescue I (D) $21 

F-15 Strike Eagle (D) .$23 

Hellcat Ace(D) $19 

Kennedy Approach(D) $23 

Mig Alley Ace (D) $23 

Nato Commander (D) $23 
Solo Flight (D) $23 



Spitfire Ace (D) $19 

MINDSCAPE 

Bank St. 

Musicwriter(D) . . .$33 
Crossword Magic (D) $33 
Hally Project: Mission 

in our Solar 

System (D) $29 

Tink's Subt. Fair(D) .$19 
MUSE 

Beyond Castle 

Wolfenstein(D) . . $23 
Castle Wolfenstein (D)$19 
OSS 

Action (R) $59 

Action Tool Kit (D). . $26 

Basic XL(R) $49 

Basic XL Tool Kit (D) .$26 
DOS XL w/Bug 65(D) $26 

MAC 65 (R) $59 

MAC 65 Tool Kit(D). .$26 

Writer's Tool (R) $59 

OMNITREND 

Universe (D) Call 

ORIGIN 

Ultima III (D) $39 

PROFESSIONAL 
SOFTWARE 

Trivia Fever (D) $25 

SSI 

Battle for 

Normandy (D) . . . .$27 
Breakthrough in 

Ardennes(D) $39 

Broadsides (D) $27 

Carrier Force (D) . . . . $39 
Combat Leader (D) . .$27 
Computer Ambush (D)$39 
Computer Baseball(D) $27 
Computer QB (D) . . .Call 
Cosmic Balance (D) .$27 
Cosmic Balance II (D)$27 

Eagles (D) $27 

Epidemic (D) $23 

Field of Fire(D) $27 

50 Mission Crush (D) $27 

Fortress (D) $23 

Galactic Adv. (D) . . . .$39 
Imperium 

Galactum (D) $27 

Kampfgruppe (D) . . . $39 
Knights of Desert (D) $27 
Objective Kursk (D). .$27 
Operation Market 

Garden (D) Call 

Questron(D) $33 

Rails West (D) $27 

Reforger '88(D) $39 

Tigers in Snow (D) . . . $27 
War in Russia(D). . . .$53 
SCARBOROUGH 

Mastertype(D) $23 

Mastertype(R) $27 

Net Worth (D) $49 

SIERRA ON LINE 

Dark Crystal (D) $25 

Frogger(D) $19 

Ultima I (D) $23 

Ultima II (D) $39 

Wizard & Princess (D)$21 

WizType(D) $23 

SPINNAKER 
Adventure Creator (R)$17 

Aerobics (D) $23 

Alphabet Zoo(R) . . . .$17 
Delta Drawing (R) . . .$17 



Facemaker(R) $17 

Fraction Fever (R) . . .$17 

Kids on Keys(R) $17 

Kindercomp(R) $17 

Math Busters(D) $19 

Most Amazing 

Thing (D) $19 

Snooper Troops 

1 or 2(D) $19 

Story Machine (R) . . $17 

Trains (D) $19 

SUBLOGIC 
Flight Simulator II (D) $33 
Night Mission 

Pinball (D) $21 

SYNAPSE 

Alley Cat (D) $17 

Blue Max (TorD) $21 

Blue Max 2001 (D) . . $21 

Dimension X (D) $21 

Electronic Novels ..Call 

Encounter (D) $17 

Ft. Apocalypse (D) . . $21 
Necromancer (D) . . . . $21 
Pharoah's Curse (D) .$21 

Quasimodo (D) $17 

Shamus II (D) $21 

Syn-Calc(D) $35 

Syn-Chron(D) $26 

Syn-Comm(D) $26 

Syn-File(D) $35 

Syn-Stock(D) $26 

Syn-Trend(D) $26 

TIMEWORKS 
Data Manager (D) . . $17 
Electronic 

Checkbook (D) $17 

Money Manager (D) . . $17 
TRONIX 

Pokersam (D) $17 

S.A.M. (D) $39 

ACCESSORIES 
Ape Face Printer 

Interface $49 

Astra 2001 Dual 

Disk Drive Call 

BASFSS. DD. . . .$14Bx, 
BASF DS. DD . . $19 Bx 
Compuserve Starter 

Kit (5 hrs.) $23 

Digital Devices 

Printer Buffers . . . Call 
Digital Devices 

U Print A $59 

Disk Case (Holds 50). .$9 
Disk Case (Holds 100) $19 
Disk Drive Cleaner . . .$9 
Full Stroke Replacement 

Keyboard for 

Atari 400 $49 

Generic Disks ...Cheap 
Indus GT Disk Drive .Call 
MPP 1000E Microbits 

Modem $109 

Microbits Microprint 

Interface $49 

MPP 1150 Microbits 

Printer Interface . .$59 
Mosaic 32, 48. 64K . .Call 
Rana 1000 Disk Drive $189 
Sakata 13" Color 

Monitor w/Swivel 

Tilt Stand $225 

Wico Boss $12 

Wico Bat Handle $19 

Wico Three Way . . . .$23 
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pressing the numbers you have assign- 
ed them. Play chords in any order and 
of any duration you want! Press [8] 
and you get no sound. 

So as you see, you can also use 
Guitar Tutor to play a simple chord 
accompaniment if you feel like tak- 
ing a break to sing a song while you're 
programming. 

GUITAR TUTOR VARIABLE LIST 

TOPS 
BOT$ 
STRINGS 

FRETS Graphic patterns to draw 
box 

PATTERN(20)-Array holds DATA 
line numbers and is later used 
for sound numbers 

K— value returned from keyboard 

X-GOSUB 600 returns with X as 
a DATA line number 

TONIC— adjusted note (i.e., B# 
reads data from C natural) 

ACC— Accidental^ if natural, 1 if 
flat, 2 if sharp 

CHORD-0 if major, 1 if minor, 2 if 
seventh, 3 if minor seventh 

LINE— saves line number to get 
sound numbers from 

F— counting loop 

A— current data 

FRET— vertical position while 
writing dots 

I— counting loop 

TIME— loop to allow notes to 
sound individually 

TONES(63)-array holds sound 
numbers and names in seven 
chord "memory" 

TONE— current location in the ar- 
ray TONES 

ONE— root of chord being put in- 
to "memory" 

THREE— major third of chord be- 
ing put into "memory" 

FIVE— major fifth of chord 
SEV— seventh of chord 
MINTHREE— minor third of chord 

Frank Imburgio and Grace Barry 
are the founders of Homespun Soft- 
ware in Setauket, New York. The 
company's stated aim is to produce 
home applications software that is 
easy to use, but not limited by its 
easiness. 



Listing on page 69 
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ANTIC, The Atari Resource 




Powerful and versatile "music con- 
struction" program. You can easily 
compose songs with three-part chord 
backgrounds — or simply copy the 
notes and chord symbols from sheet 
music. This BASIC program runs on 
any Atari computer with 52K 
memory. Disk or cassette. 

% M ith The Musician, you 

% J^^can easily enter and 
hear playback of any 
▼ ▼ song on your Atari — 
with a full background of three-part 
chords. Only an elementary know- 
ledge of music is required. In fact, you 
can simply copy your favorite songs 
directly from sheet music. You set The 
Musician to play harmony chords by 
simply naming them— the program 
fills in the required notes! 

Type in Listing 1, checking it with 
TYPO II and SAVE it to either cassette 
or disk. Antic Disk subscribers will 
find a short demonstration song 



bonus file. Here's how to use The 
Musician. 

USING MUSICIAN 

When you RUN The Musician, you 
will see an introductory screen for a 
few seconds as the program initializes. 
A music staff will then appear on the 
screen with a single red note. 

Use your joystick to move the note 
up and down on the staff. If you are 
working from sheet music, simply 
place the note in the same position 
you see it on the sheet music. To enter 
the note, press the joystick button. 
The note will turn white. Then The 
Musician will briefly play your chosen 
note and a new red note will appear. 

TIMED NOTES 

Placing your note on the staff just 
gives you the basic pitch. You must 
still set time values, indicate if a note 
is sharp or flat, and enter rests or dot- 
ted and sustained notes. 

You select these various note types 
by pressing keys on the Atari. Here is 



how it works. 

Whole notes W 

Half notes H 

Quarter notes Q 

Eighth notes 8 

Sixteenth notes 6 

Thirty-second notes 3 

Dotted notes 

Sustained notes S 

Sharp notes # 

Flatted notes B 

Natural notes N 

Rests R 

A little music information here: 
There are various "time signatures" 
possible at the start of a piece of 
music. In the most common types, 
4/4 (standard) and 3/4 (waltz), a 
quarter note would be held for one 
beat, half note is two beats and whole 
note is four beats. An eighth note is 
half a beat, sixteenth note is one- 
fourth of a beat and a thirty-second 
note is one-eighth of a beat. 

Dotted notes increase the time a 
note is held by half its normal value. 

continued on page 50 
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Rotate and zoom 3-D 
images in ACTION! 



by PAUL CHABOT 




092 FREE SECTORS 



f i lenane>> 
eye 10 S S dist. 100 nag 4 

PreRotated o o o ri-30 
Cent er 80 90 Focus 0 0 0 



Create 3-D ivire-frame outline pic- 
tures in your Atari's highest resolu- 
tions, Graphics 8 and Graphics 7+. 
Magnify, shrink, rotate, and other- 
wise shift your view of the 3-D pic- 
ture easily and fairly quickly Re- 



quires ACTION! cartridge, disk drive 
and 48K memory. Antic disk sub- 
scribers can run VIEW3D.EXE with- 
out the ACTION! cartridge. Disable 
BASIC and use the L option from 
DOS 2. OS. Disk or cassette. 

When Paid submitted View 3-D to 
Antic, we saw it ivas easily the 
largest ACTION! program any 
magazine had considered publish- 
ing. But in recent months, we have 
received so many letters from readers 
wanting ACTION! that ive thought it 
was time for a monster example of 
programming in this powerful Atari 
language. 

Be warned: there are ten separate 
program listings, nine of which are 
dependent on and INCLUDEd into 
the tenth to form one ?nain program. 
Because of the nature of ACTION! 
there is no TYPO II, so type patient- 
ly and carefully. The results will be 
well worth it. -ANTIC ED 



ANTIC, The Atari Resource 



■ here are different approaches 

I to 3-D viewing. You can leave 
I the viewing point ("eye") fixed 
and rotate the object. Or you 
can think of the object as fixed and 
change the location of the eye. These 
are mathematically equivalent, but 
conceptually quite different to most 
people. 

Also, should the projection be per- 
spective or orthogonal? Where 
should the focus be placed? View 3-D 
will allow any combination of these 
variations and more. To manipulate a 
3-D frame quickly, you need faster 
number crunching than BASIC pro- 




vides. The answer is ACTION!, the 
cartridge-based programming lan- 
guage from Optimized Systems Soft- 
ware, which is becoming increasing- 
ly popular with serious Atari pro- 
grammers. 

TYPING IT IN 

View 3-D is one program, but it has 
been split into ten files. Listing 10, 
called VIEW3D, is the main file which 
INCLUDES the other nine. If you look 
at the beginning of listing 10, you can 
see the name of the other files. 

Type each file in the order they are 
INCLUDEd in Listing 10. Each subse- 
quent file shares procedures from 
previous ones, none may be compiled 
or run independently. You can partial- 
ly check your work by compiling pro- 
grams accumulatively in the order in 
which you type them. For example, 
GR78M may be compiled alone. After 
typing in MISC1, create a temporary 
third program which INCLUDES 



GR78M and MISC1. This third pro- 
gram, when compiled, will compile 
the first two, and so on. 

VIEW3D is too large to be com- 
piled and run from the ACTION! 
editor. When all your files are proper- 
ly typed in, clear the editor and, from 
the monitor, type: C "VIEW3D.ACT'. 
After the compilation is complete, 
type [R] and away you go. 

THE PROGRAM 

The first thing you should see is the 
menu screen. View 3-D alternates be- 
tween two screens — the menu screen 
and the view screen. The menu screen 




has command options and a disk di- 
rectory. The view screen shows your 
3D drawing. Shortly after the menu 
appears, the colors will alter and the 
program will switch to the view 
screen and display a simple 3-D ob- 
ject called "Plane" which is similar to 
Figure 1. 

THE COMMANDS 

With the exception of [D], any key 
pressed will take you to the view 



screen. One-key commands are acted 
upon immediately. No [RETURN] is 
needed. 

[B] Returns you to the menu at any 
time. 

[G] Switches you between GR. 7 + 
and GR. 8. GR. 7 + offers four colors 
(counting the background), changed 
with the [C] selection (below). 

[C] Alters the GR. 7+ color 
registers. The message line at the bot- 
tom will indicate the current color 
number (0-3), its current hue and 
luminence values, plus the word 
Default. 

The keys [C], [H], [L] increment the 




color, hue, and luminence. This can 
be used while in GR. 8. But the effect 
may be misleading because the GR. 
7+ registers and the current screen 
registers are being altered but not the 
GR. 8 default values. The [D] key re- 
sets all GR. 7+ registers to default 
values. These values are updated each 
time you load a data file. Also, none 
of your playing will affect the menu 
screen colors, since these are main- 
continued on next page 
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tained separately. Any other key ter- 
minates this routine. 

[M] Magnifies the object. This is ini- 
tially set at 4 and wraps to 1 when in- 
cremented past 9. You won't see the 
effect until the picture is redrawn by 
pressing [SPACE]. 

[V] Changes the view between per- 
spective and orthogonal. Perspective, 
which emulates our vision, takes into 
account the distance from the eye, 
whereas orthogonal is used in draft- 
ing and engineering. 

Figures 2 and 3 show the differ- 
ence between perspective and ortho- 
gonal projections. 

PREROTATE 

These selections let you rotate your 
object about any of the three X, Y and 
Z axes. The message line shows the 
values of rx (rotate X), ry (rotate Y), 
rz (rotate Z), and ri (rotational incre- 
ment). Each time the [X], [Y] or [Z] 
keys are pressed, the object rotates 
about the chosen axis in ri incre- 
ments. The rotations are about axes 
that pass through the focus point. 

The [I] /[J] keys increment/decre- 
ment the value of ri in degrees. 
Negative values of ri make rotations 
go in the opposite direction. 

POINT OF VIEW 

The following commands affect your 
dimensional view of the object. 

[3] Fix EYE/dist. The eye coor- 
dinates are controlled by your 
joystick. Selections [l]-[4] use the 
same joystick scheme: Left/right alters 
the X coordinate, up/down alters the 
Y, and up/down while holding the 
trigger alters the Z. In selection [3], 
left/right with the trigger pressed con- 
trols the distance. Press [SPACE] to 
draw your object from this new eye 
location. 

Remember that the eye coordinates 
are relative to the focus point (see [4] 
below) and only establish the view- 
ing direction in the orthogonal view. 
The eye-object distance is important 
only in the perspective view. Keep the 
distance large to avoid distortion. 

[4] Change FOCUS. The focus is the 
point in space at which the eye is aim- 
ed and through which all the rotation 
axes pass. It is normally on or near 



the object being studied and will be 
mapped to center screen (cx,cy). 
Move the flashing dot with your joy- 
stick. More importantly, watch its co- 
ordinates. Use [SPACE] to set your 
choice. 

[5] Change CENTER. This alters cx 
and cy, shifting the object. These are 
actual screen coordinates (0,0 is the 
upper left). Use [SPACE] to set your 
choice and see the effect. 

[0] Resets the center, eye, focus, 
magnification, and prerotation values 
to defaults used at start-up. 

I/O 

[D] Lists up to 22 data files in the 
menu window, assuming they have 
".V3D" extenders. This is also done 
automatically at start-up and after 
each successful save. 

[L] Loads a data file from disk. 
Answer the input prompt with a file- 
name only. The program supplies the 
"D:" prefix and a "V3D" extender. 
Upon hitting [RETURN] you'll see the 
full filespec. Press [L] again to ac- 
complish the load. Any other key will 
abort the process. 

[S] Saves data to a disk file. The pro- 
cess is the same as the above [L] load. 

[P] Outputs to your printer. After 
pressing [P] you may choose to print 
the picture data [D] or the picture [P]. 
The picture is produced by a short 
screen dump for a Gemini 10X. You'll 
get best results by printing the GR. 8 
picture. 

To alter the printout procedure for 
your own printer, examine the Prnt 
procedure in the PRINTIO.ACT file 
and adapt accordingly. The st array 
contains printer control codes 26, 51, 
16 which, on the Gemini, set the line 
feed to 16/144 inches. In the pre ar- 
ray, the 27, 75, 192, 0 mean print 
normal-density graphics (60 
dots/inch) using 192 + 256*0 char- 
acters. If you have an Epson FX-80, 
for example, you need only change 
the line feed commands: Change the 
16 to 24 in the st array, and later in 
the procedure at st(3)=l6. Also, 
change the 20 to 30 in st(3) = 20 

3-D DRAWING 

It's not easy to draw in 3 dimensions. 
The easiest way to learn is simply to 



try it. Concentrating on the changing 
coordinates in the message line may 
be easier than watching the dots and 
lines on the screen. 

However, before you start, you may 
wish to save the object currently in 
memory. The process is easier to 
understand if you use the EDIT com- 
mand, [2], to display a blank screen. 
Each time you press the [SPACE] bar, 
the screen will step through the draw- 
ing process of the object in memory, 
showing you how to construct a 
drawing. 

To get started on your own, press 
[0] to use default values. To create a 
blank screen, press [2] then [1]. The 
joystick moves a flashing dot, whose 
coordinates appear in the bottom line. 
Position the cursor where you want 
it, and establish that point by press- 
ing the [SPACE] bar. Your current up- 
dated point number will be displayed 
in the bottom line. Next, move the 
cursor to your second location, press 
[P] to switch from "Plot 1 ' to "LineTo" 
and press [SPACE] to draw the line. 

For starters, keep it simple, or try 
editing a sample drawing. (The pro- 
gram can take up to 200 data points.) 
To edit a previous drawing, press [1] 
to ADD points and lines. As you step 
through the drawing by pressing 
[SPACE], you can change any of the 
values at any point, or you can begin 
adding to the last points. You can, of 
course, save your object to disk at any 
time. 

DATA STORAGE 

At this point, you need to understand 
a little about how data for your 3-D 
object is stored. The INTeger array P 
contains all the information in the 
following format: 

P = [fl:X y 2:d:X y Z:C: :X y Z:C: 

] 

P(0) = n is the number of data 
points in your object. The next four 
integers contain EYE data. The first 
three indicate the direction away from 
the FOCUS, and the fourth gives the 
distance. 

The following four integers contain 
the three space coordinates of the 
focus point and a presently unused 
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value. These nine integers are follow- 
ed by n data sets for your object. Each 
is made up of four integers contain- 
ing the three space coordinates for a 
point and a fourth coded message. 
The encoding of the fourth integer is 
given by c= color + 16 *p, where 
p = 0 for "LindTo" and p = 1 for 4 'Plot". 

SAMPLE DATA 

You can enter the data in figure 4 in 
the ADD mode to create a house with 
windows and a red chimney. Press 
[2], then [1] to clear memory. Now 
use your joystick to get the coor- 
dinates in the message line to match 
those of the first point in the exam- 
ple. Hit [C] and [P] as needed and set 
the data by hitting [SPACE]. Now do 
the same for the second point in the 
example, etc. 

You can even do a little at a time. 
Just save the portion you've done. 
Next time load in this file, press [1] 
and continue from where you left off. 
A couple of examples will show you 
how to read the notation. "10 20 
15:P2" means to Plot (10,20,15) in 
color 2. Whereas "20 20 30:L3" 
denotes a color 3 LineTo (20,20,30). 
Each example has suggested EYE and 
FOCUS data. 

Longtime Antic contributor Paul 
Chabot is a professor of mathematics 
and computer science at California 
State University, Los Angeles. He 
wrote "Splash In ACTION!" in our 
April 1985 issue. 

Listing on page 54. 
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HOUSE : eyerfl 
CO O 0:P23 
CO 60 8:L23 
CIS O 50:L23 
C30 6© 0:P23 
CO 60 40:L23 
CO O 40:L3) 
CIS 60 50:P2) 
C30 10 25:L3i 
C30 30 1_0:P33 
C30 SO 10:L33 
C30 40 25-L33 
C20 60 25-L33 
CIO O 0:P13 
C20 O 0:L1) 
C20 -5 0:L13 
CIO -5 55:L13 
C20 O 55:1-13 



Figure 4 

3 5:1683 foe 
C30 O 0:L23 
CO O 0:L23 
C30 O 48.L23 
C30 60 40:L23 
CO 60 0:L23 
C30 O 40:P33 
CIS O 50:L23 
C30 20 25:L33 
C3Q 30 25:L3) 
C30 30 10:L33 
CIO 60 10:P33 
C20 60 1©:L33 
CIO -5 0.L13 
C20 O 55:L13 
CIO O 0:P13 
CIO -5 0:L13 
CIO 5 55:P13 
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O : P33 
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0 : L33 


C30 
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25 : L33 
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40 


10 : P33 


CIO 


60 


25 : L33 


CIO 


60 


lO : L33 


C20 


-5 


O : L13 


C20 


-5 


55 : L1J 


C 10 
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55 : L13 


CIO 
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55 : P13 


CIO 


5 


55 : L13 
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S COMPUTER PALACE we know atari! 

oytsr- 




INDUS GT DISK_DRIVE 

» Free Software 
» Double Density 
* 1-Yr. Warranty 

Our Most Popular Drive! 

We recommend and sell more of these drives 
than any other. It's so quiet that you'll 
probably forget you are using a disk drive. 
Flip-up dust cover, LED readout, and FREE 
SOFTWARE (DOS XL. Word processor, Data- 
base. Spreadsheet. Programming book by 
Datamosl ). . .This package is hard to beat! 

New Low Price $259.95 



GAMES 

Star Raiders 13.95 C 
Joust 
Robotron 
Donkey Kong 
Dig Dug 



Defender 
Ulysses 
Tennis 
Ultima ll 
Ultima III 
Bounty Bob 
Strip Poker 
Bridge 4 0 
Spy vs Spy 



35.70 C 

35.70 C 

27.90 C 

27.90 C 

17.95 C 

19.95 0 

13.95 C 

52.50 D 

39.95 D 

44.90 C 

31.50 D 

22.50 D 

26.90 D 



Castle Wollenst 26.90 D 
Poker Sam 22 50 D, 



Bristles 
Cutthroats 
Enchanter 
ML Baseball 
Chess 7 0 
Checkers 
Pitstop ll 



26.90 D, 
31.50 D 
31.50 D 
35.10 0 
59.50 D 
44.90 D 
35.10 D 



EDUCA- 
TIONAL 

Hundreds of Titles Please 
ca " us (503) 683-5361 

BOOKS 

Misc: 

6502 Programming 18.95 
6502 Subroutines 17.95 
Advd Pro Tech At 14.50 
Advent w/Atari 
Assem Lan Progr 
Basic Atari Bas 
Basic Atari Kids 
Best Antic w/Dsk 
I Elementary Atari 



14.95 
15.95 
15.95 
12.95 
24.95 
14.95 



Computer Ambu 52.50 D 
Broadsides 35. 10 D 
Kamptgruppe 52.50 D 
Adventure Write 26.90 0 
Ah Baba 26.90 D 

Return Hercules 28.90 D 
Savage Island 17.90 T 
Voodoo Castle 17.90 T 
Secret Mission 17.90 J 
Dimension-X 
Zombies 
Bruce Lee 
Conan 



31.50 D, 
31.50 D, 
35.10 D, 
35.10 D 



Ghost Busters 
Archon II 



26.90 D 
35.10 D 



Tech. User Notes 26.90 

Assembler 
Basic Fast & Bet 
Basic Source Bk 
For Kids 8-80 
Games & Rec 
Graphics & Arc 
Playground 
Roots 

Sound & Graphics 10.95 
Users Encyloped 19.95 
W/55 Programs 14.50 

Compute: 

2nd BK Mach Lan 
jFBO Atari Graph 
j FBO Atari Games 
j FBO Atari 

Great ADV Games 

2nd Bk of Atari 

3rd Bk of Atari 



15.95 
19.95 
12.95 
15.95 
14.95 
16.95 
9.95 
14.95 



14.95 
12.95 
12.95 
12.95 
12.95 
12.95 
12.95 




Protect Your 
Equipment 

Deluxe 
DUST COVERS 

Custom fitted, attractive leather brown color: 
•ATARI 400. 800, 600/800/1 200XL, New 
XE&ST, 410, 810, 1050, 1025, 1027, CX85 

• EPSON, GEMINI, PROWRITER printers 

• INDUS, RANA, PERCOM, TRAK disk drives. 

Additional covers ordered 
at same time 

ONLY $8.95 EACH I ONLY $7.95 EACH 



DISK NOTCHER 
SPECIAL! 

Only 
$9.95 

Now use both sides of 
your diskettes 

Simply place the disk against the 
built-in stops and squeeze 




48K Disk 
$39.95 

Program Covers 
4 Disk Sides 




CALL US AT (503)683-5361 FOR INFORMATION 



Outsmart Your Friends 
Outwit The Dragon 
Join The Quest 



A new concept in computer gaming. Intellectual challenge, strategy and arcade action. Each 
player assumes the role of a lord with a questing party of three characters. Complete the 
quest, earn the most gold by answering questions and battling the dragon. Win the favor of 
the king and thus, the game. 

• Utility Disk: 1000 Additional questions plus create your own... $24.95 



FREE CATALOG P^^s 



with any order . 
first purchase) 



or send $1 (refundable with 



You will receive the most com- 
prehensive reference catalog 
available. Containing hun- 
dreds of software and hard- 
ware listings with illustrations 
and descriptions, our main 
catalog will give you the 
answers you need. Join our 
mailing list and receive free 
flyers with updates and special 
offers. 




IF YOU DON'T HAVE OUR 
CATALOG... YOU'RE 
MISSING OUT! 



NEW! COMPUTER PALACE B.B.S. 

We are now running a bulletin board system as a service to our modem 
customers You will be able to place an order with us by using your 
modem just follow the screen instructions We will be featuring download * 
files such as public domain games, utilities, and program demos We will 
have a section about the latest Atari products, news, and rumors and for those frustrated 
adventurers, there will even be a section of hints and answers for the whole Atari adventure 
realm' 

1-503-683-7454 



Give us a call! 



(6:00p m. lo 8:00a m. PST) 



Peachbee Software 



Now, one of the most popular accounting systems is availale for Atari. Back to Basics 
Accounting System is a double entry, accrual accounting system consisting of three 
interactive packages for the small business: General Ledger, Accounts Receivable and 
Accounts Payable. A powerful system, it includes automatic posting, system generated 
mailing labels and password security. For the non-accountant, it comes with one of the 
most comprehensive manauals we have seen. For the expert, it will finally put your Atari 
in business. Requires 2 drives. 48K Disk-System Package... $195. 00. Each... $95. 00 



One of the most versatile data-base programs available. 

New Enhanced Version 2.0 
Includes: 



^IPLUS 



Features: 



» LIGHTNING FAST RETRIEVAL 
• FAST SORTS ON ANY FIELD 
» SUPPORTS UP TO 4 DRIVES 
» SINGLE OR DOUBLE DENSITY 
» STORE ABOUT 1200 RECORDS 

PER DISK SIDE IN DOUBLE DENSITY 
► MUCH MORE 1 



401/ w\' i • ON-SCREEN PROMPTS 
4oK UlSK • HELP SCREENS 
*At% OC • STATE ABBREVIATION TABLE 
3>4SJ. 510 • PRINT LABELS 1. 2. or 3-UP 

• REDEFINABLE FIELDS 

• MERGE-CREATE COMBINATION FILES 

• DELETE DUPLICATE-AUTO or MANUAL 



New! Mail Merge Utility $19.95 

Now you can use your Super Mailer + records with Atarwriter and Letter Wizard 
Use names and addresses to create form letters. Input special characters into the 
word processing programs to tell Super Mailer+ where to put the information It's 
as easy as 1...2...3! 




Super-5 

CP150 

Printer 

$279.00 

+ FRT 

A "best buy" ! Features "square dot" print 
head with the best print quality for the money. 
130CPS, bi-directional, graphics, and EPSON 
compatible. Plain or Pin-fed paper. 



BUSINESS 

Assm Editor 
Monkey Wrch ll 
Atariwriter 
Letterperfect 
Spell Wizard 
ABC Compiler 
B/Graph 
Peachtree G/L 
3 eachtree A/P 
Peachtree A/R 
Home Accountant 
Synfile 



31.50 
29.95 
39.95 
87.90 
44.90 
69.95 
62.50 
95.00 
95.00 
95.00 
67.50 
49.95 
49.95 
49.95 
35.10 
35.10 
87.90 
87.90 
87.90 
87.90 
44.90 
44.90 
29.90 
22.50 
55.00 



Syncalc 
Syntrend 
Synstock 
Home-Calc 
Mac/65 
Action 
Basic XL 
Writer's Tool 
Tele-Talk 
Financial Cookbk 
Basic Cartridge 
Graphic Gener 
Microsft Basic 2 

PARTS & 
MISC 

Disk Cleaner 13.95 
800 Power Supply 24.95 
10 Disk Mailers 6.50 
10 Generic Disks 13.95 
Ten Key Pad 
Touch Tablet 
Compu-Serve 
Indus Dr Stacker 
Oak Monitor Std 
Printer Stand 



39.95 
54.95 
39.95 
19.95 
29.95 
24.95 



Disk Bank(50) 


15.95 


Disk Bank(35) 


9.95 


Regular Joystick 


9.30 


Deluxe Joystick 


19.95 


Swivel Base 


39.95 


Joystick Cord 


2.95 


Joystick Handle 


1.49 


Joystick Board 


2.49 


J stick 12' Ext 


9.95 


Surge Protector 


39.95 


Printer Intrface 


69.95 


64K for 600XL 


79.95 


Relax 


99.95 


Sherlock 


26.90 


SPECIALS 


Rally Speedway 


19.95C 


Shamus 


9.95D 


Pacific Cst Hwy 


9.950 


Crossfire(T- ) 


9.95 


Match Racer 


9.950 


Bandits 


9.95D 


Jawbreaker 


9.95D 


Eastern Front 


9.95T 


Canyon Clmt>(T- 


D) 9.95 


Pool 400 


14.95C 


Speedway Blast 


14.95C 


Repton 


9 950 


Wayout 


9.95D 


Threshold 


9.950 


Stellar Shuttle 


9.95T 


Wiz of Wor 


17.95C 


Deluxe Invaders 


17.95C 


Gort 


17.95C 


Miner 2049er 


17.95C 


Chophfter 


19 950 


Lords of Karma 


9.950 


D Disk T Tape 


C Cartridge 





New ATARI 130/520ST Computers 

HIT - 




128K-$399/512K-$599 

The current flagship of the Atari Family has 
arrived, utilizing the speed of the Motorla 68000 
CPU. With 128K or 512K. you will have power at 
prices you won't believe. And with a mouse, 
pull-down menus, windows, icon graphics and 
cut and paste features that allow you to integrate 
spreadsheet, text and graphic files; creative 
solutions have never been easier. The quantities 
are limited, so place your order now to get yours 
as soon as possible. 
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Need a . . . greeting card, letterhead, logo, 
ad flyer, announcement, note card, station- j 
ery, report cover, award certificate, sign or 
bulletin? Make one in minutes! How about a 
jumbo banner? Simple!! Make it 30 feet long if i 
you like. With only a few key strokes, you can I 
write, design and print like a pro. All you need ! 
is in the program: 8 typestyles in multiple j 
sizes with solid, outline and 3-D format, ! 
border designs, background patterns, and a i 
wide range of pictures and symbols. Also in- i 
eluded are: The ability to superimpose text : 
over any picture or design. Use illustrations i 
from other graphics programs. Swirling ani- j 
mations that you can freeze for background 
designs 48|( p 339 gq j 



COMPUTER 
PALACE 



OPEN M-F. 9-6 Sat. 10-4 (Pacific Time) 
2160 VV. 11th Avenue Eugene, Oregon 97402 




USE YOUR CREDIT CARD & CALL 

Toll Free 1-800-452-8013 
★ ORDERS ONLY, PLEASE * 

There's never a penalty for using your credit card! 
For Information, Call (503) 683-5361 



SHIPPING INFO: Minimum $2.90 Ground, $4 75 Air Actual 
Cost depends on weight. Call (503) 683-5361 for information 
WARRANTY INFO: Everything that we sell is warrantied by 
the manufacturer If any item purchased from us fails to per- 
form properly when you receive it. call us at (503) 683-5361 
so that we can assist you. No returned merchandise accepted 
without authorization Defective software will be replaced 
with another copy of the same program, otherwise, no soft- 
ware is returnable. 



assembly language 



TURBO TYPO II 

Speedy three-line enhancement 



Changing three lines in TYPO II 
gives assembly language speed to 
Antic's program typing checker. (See 
listing Section.) TURBO TYPO II 
will work on all Atari computers of 
any memory configuration. 



When Andy Barton started working 
on TYPO II, he wrote it as a machine 
language vertical blank interrupt 
routine which fit in Page Six of 
memory. Following a suggestion 
from Bill Wilkinson of Optimized 
Systems Software — who wrote the 
original TYPO — we decided to 
switch to an all-BASIC TYPO II. An- 
tic felt that novices, who most needed 
TYPO II, would have a much easier 
time if they didn't have to type in a 
lot of data statements. 

We also wanted a simple program 
that the widest range of readers could 
have fun tinkering with. (See the I/O 
pages in both the April and May 
issues for some earlier enhance- 
ments.) fudging by the many thank- 
you letters from new Atari users and 
the large number of improvements 
that more experienced readers have 
sent in, Antic certainly succeeded in 
both goals. —ANTIC ED 

TURBO TYPO II 

TYPO II is an enormous help, but it 
does have an annoying drawback — 
the longer the line, the more time re- 
quired to check it. My object was to 



by DAVID McLAUGHLIN 



speed up TYPO II while producing 
the same two-letter code checksums. 

I noticed the slowdown came from 
line 32150 of the original code. This 
line was an elegant solution, creating 
a unique code that also checks for 
correct letter order (i.e. distinguishes 
between TO and OT). 

Therefore, the best way to speed up 
TYPO II was to write the line 32150 
procedure in machine language. Thus, 
I created Listing 3, TYPO II, in ML. 
But you do NOT need to type this 
listing to create an enhanced TYPO 
II. It is included primarily for your 
information. 

TWO CHOICES 

I have provided two ways to create the 
necessary enhancements. Listing 1 is 
all you need to add to the current 
TYPO II. If you are one of those brave 
souls who doesn't mind typing in a 
lot of special and inverse characters 
then simply use your old TYPO II to 
type in Listing 1. When done, press 
[BREAK] then SAVE or LIST your 
enhanced TYPO II to disk or cassette. 

If you'd rather not take a chance on 
typing tricky characters, then use your 
old TYPO II and follow these instruc- 
tions in exactly the following order. 

1. With TYPO II running, type in 
lines 32015 to 32025 from 
Listing 1. 

2. Type in Listing 2. 



3. After Listing 2 is successfully en- 
tered, press [BREAK] to stop 
TYPO II. 

4. Type RUN and line 32026 from 
Listing 1 will be created for you. 

5. When the READY prompt ap- 
pears type GOTO 32000. 

6. Type in line 32150 from Listing 
1 and your enhanced TYPO II 
is complete. 

7. Press [BREAK] and save the new 
TYPO II to disk or tape by 
typing: 

LIST "DTYPO II",32000,32220 or 
LIST "C:",32000,32220. 

If you want a SAVEd version then 
type NEW and then ENTER the new, 
enhanced TYPO II and then SAVE it 
to disk or tape. 

SOURCE CODE 

Listing 3 was created with the Atari 
Assembler/Editor cartridge. Of 
greatest interest is the use of three 
bytes to calculate TYPO II 's variable 
ANS. 

Normally, in this type of applica- 
tion, the programmer returns the 
value of ANS back to BASIC through 
memory locations 212 and 213 (hexa- 
decimal $D4 and $D5) as the Atari 
creators originally planned. However, 
ANS can only have a maximum value 
of 65535, the greatest value two bytes 
can hold. 

continued on next pase 
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The original TYPO II's design allows ANS to become 
larger than that after the length of LINE$ becomes greater 
than about 20-30 characters. But the use of three-byte 
arithmetic is sufficient to hold the highest possible values 
of ANS. 

A note of caution: TYPO II in ML uses three Page Six 
memory locations, 1789-1791 (hexadecimal $6FD-$6FF). 
Any program that accesses these three locations will be 
in conflict with the enhanced TYPO II. But since they 
are the last three locations on Page Six, there should be 
little problem. 



Listing on page 75 
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HIGH PERFORMANCE 
PRINTER INTERFACE 

Only $69.95 

Atari 850 compatible. 
Use on Atari 400, 600XL, 
800, 800XL, 65XE, 130XE. | 
Power-on LED. 
Ribbon cable connector. 
External power supply. 
Page formatting independent of software. 
DIP switch selections of line feed and 
English translation of control characters. 

TURBOPRINT/GTA . . . $99.95 

All the above features plus . . . 
Optional 16K or32K plug-in buffer. 
Prints Atari graphic characters. 
DIP switch selection of printer. 

Interfaces for Atari, Commodore and Apple. 




Selesys 415-651-2970 



FOR ATARI *400/800/1200/600XL/800XL* 



For ATARI 800XL, 600XL with 64k. 
Replacement operating system to run the 
vast majority of all ATARI software. No 
translator or disk to load! 
Proper RESET operation especially impor- 
tant for programs like LETTER PERFECT, 
DATA PERFECT, TEXT WIZARD, etc. 
One touch access to extra RAM, all RAM. 
One touch BASIC on. 
Easy plug in installation. 

NOW INCLUDES DUAL OPERATING 
SYSTEM BOARD! 

* Includes MacroMon XL which is an ex- 
cellent, unique monitor for beginner and 
pro alike— written especially for the BOSS. 
$79.95 for 800XL/600XL with 64K*. 



Uen 
acroware 




PRIMTWIZ 



An all machine language text, 
graphics, mixed mode dump for EP- 
SON, GEMINI, NEC, PROWRITER, 
OKI DATA, M-T SPIRIT, 160L, 
KXP-1090, DMP-80, ISD 480, 
SEIKO/AXIOM GP550A. 
Self booting can be used while pro- 
gramming or even running other pro- 
grams. 

Works with or without BASIC, 
ED/ASM, PILOT, LOGO. Calendar 
generator. Horizontal format allows 
text to be continued in same direction. 
Change widths, height, center and 
much more from the keyboard or your 
program. Special handlers for PAINT, 
Micro-Illustrator, LOGO, Micro- 
painter, etc. Includes LISTER program 
for inverted and special characters plus 
demos and ideas. $29.95* 16K Disk- 
All Interfaces. 



diskwiz-ll 

Fast and easy to use repair, edit, ex- 
plore, dup, disk utility package. Single 
load, single or double density. Special 
printout capabilities. 
Repair or change of linked DOS2 or 
OSA+2 files, directories, dup 
filenames. Fast searches, mapping, file 
trace. Disassembler, speed check and 
much more! Low priced, fast, easy, 
and powerful! $29.95 16K Disk. 

Send s.a.s.e. for update info. 

*TERMS: U.S. funds; check or M.O. 

add $2.50 shipping/handl- 
ing add 6% CA — 6.5% LA 
COUNTY add $3.00 for 
C.O.D. No charge cards ac- 
cepted add. $2.50 foreign 
orders normally out within 
48 hours. 



P.O. BOX 2205/REDONDO BEACH, CA 90278 
(213) 376-4105 
* Trademark of Alari, Inc. 
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G.U.R the 
GREAT 



Fast graphics 
power from BASIC 



by DAREK MIHOCKA 




Graphics Utility Package 
(G.U.P.) is a BASIC pro- 
gram that creates a boot 
file. When this file is in- 
stalled in your Atari's memory several 
new and powerful graphics com- 
mands are available to you in the form 
of USR calls. 

G.U.P. features include: 

• PLOT and DRAWTO about 3-5 
times faster than normal. 

• Circles and boxes drawn at high 
speed. 

• Several lines drawn at once for 
high speed. 

• Access by a 400 or 800 to the 4 
new XL graphics modes. 

• Choose solid or multicolor 
patterns. 

• Mix text with graphics. 

• A simple 128 color rainbow 
command. 

• Direct commands in GTIA 
modes. 



Speed up your BASIC graphics com- 
mands and add powerful new 
ones — including circles, squares and 
patterned fills. Atari 400/800 owners 
can now access graphics commands 
available only on the XLs. Requires 
a disk drive and will run on all Atari 
computers with 48K memory. 



TYPING G.U.R 

Type in Listings 1 and 2 . Check them 
carefully with TYPO II and make sure 
no lines have been missed. These pro- 
grams use machine language routines 
which could lock up your computer 
if mistyped, so be sure to SAVE backup 
copies before RUNning them. 

Listing 1 will create an AUTO- 
RUN.SYS file on disk. RUN the pro- 
gram and at the prompt insert a for- 
matted disk with DOS 2. OS, press 
START and G.U.P. will be written to 
disk. (Note: because of the G.U.P. file 
structure, do NOT use DOS 3 ). Now, 

continued on next page 
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boot the disk, the screen will change 
color and G.U.P. will be in memory. 

DEMONSTRATION 

To test G.U.P. , LOAD Listing 2 into 
memory and RUN it. Listing 2 is a 
demonstration program that will take 
G.U.P. through its amazing paces and 
provide examples of how to use G.U.P. 
in your own BASIC programs. 

Lines 40-180 of Listing 2 are essen- 
tial to any BASIC program using the 
G.U.P. commands. These lines deter- 
mine the starting locations of the dif- 
ferent routines and store them in com- 
mand variables. You can renumber 
them for your convenience, but they 
must be executed before any G.U.P. 
commands are given. 

LOCK-UP 

G.U.P is really a series of USR calls, 
which are assembly language routines 




LINE, BOX, CIRCLE, TEXT, RAN- 
DOM, and C128. Here is a description 
of each: 

GRAPHICS x— Establish graphics 
mode. Any one of the 16 graphics 
modes can be selected. This allows a 
ROM B Atari to access the 4 new ROM 
C graphics modes with one com- 
mand. To access the 160X192 4 col- 
or mode (GR.15 on XL computers), 
use the command: 

A = USR(GRAPHICS,15) 



that are accessed from BASIC. Com- 
puter newcomers, who may be a lit- 
tle wary of USR routines should read 
last month's "USR Routines" by Ernie 
Negus. 

When using assembly language 
routines, there is always a good pos- 
sibility of computer lock-up — your 
keyboard no longer responds and 
there's nothing to do but turn off your 
computer and start all over again. 
Lock-ups can occur with just one 
mistyped character. They're time- 
consuming and annoying and you 
may lose unsaved data. But they won't 
harm your machine, so don't be afraid 
to experiment. 

GAJ.P. COMMANDS 

G.U.P has 10 separate commands: 
GRAPHICS, SET, PLOT, DRAWTO, 



SET a,b,c,d — Choose patterns. Each 
parameter contains color data for 4 
pixels necessary for the pattern of col- 
ors. (See the explanation later on.) To 
set the colors to simulate the BASIC 
command COLOR 1, use: 

A = USR(SET,85,85,85,85) 

PLOT x,y— Same as BASIC'S PLOT 
Use: 

A = USR(PLOT,X,Y) 

DRAWTO x,y — Again, the same as 
BASIC'S DRAWTO. Use: 

A = USR(DRAWTO,X,Y) 

LINE xl,yl,x2,y2— Similar to 
DRAWTO, except that the first 
parameter is the starting pixel. For ex- 
ample, to draw lines from pixel 0,0 
to 10,5 to 20,3 use: 

A = USR(LINE,0,0,10,5,20,3) 

The DRAWTO and LINE commands 
can have more than one parameter. 



That is, if 5 pairs of coordinates are 
given, then a line will be drawn from 
the first to the second, then the se- 
cond to third, and so on. This saves 
time and memory. 

BOX xl,yl,x2,y2— This will draw a 
filled-in box whose opposite corner 
coordinates are (xl,yl) and (x2,y2). A 
10 pixel square box is draw with: 

A = USR(BOX,0,0,10,10) 

CIRCLE x,y,r — this draws a circle of 
radius r pixels at location xl, yl. This 
command works about 30 times 
faster than any BASIC algorithm I've 
tried. A large circle in GR.15 is drawn 
by: 

A = USR(CIRCLE,79,79,75) 

TEXT x,y,"abcd..",l— this will print 
out the given string of length 1 in 
graphics modes 4,6 or 8 at co- 
ordinates x,y. This allows easy mixing 
of text and graphics. It should be used 
in a 2 color mode to make the letters 
readable. To put the word ANTIC in 
the upper left corner of the screen 
use: 

A = USR(TEXT,0,0,ADR 
('ANTIC"),5) 

Repeating the command will erase the 
word and restore any graphics that 
were underneath. 

RANDOM— This command simply 
puts random colors in the color pat- 
tern. The command is: 

A = USR(RANDOM) 

C128 d,r— This produces a 128 col- 
or rainbow display for the given dura- 
tion (d in l/6()ths of a second) in the 
given color register (r). R is determin- 
ed by subtracting 704 from the loca- 
tion of the color register. For exam- 
ple, to make a rainbow of the 
background (location 710) for 10 
seconds use: 

A = USR(C128,600,6) 

VARIABLE REGISTERS 

Four variables are established as 
registers in G.U.P. 

CIRF is a variable used to switch 
between empty-circle drawing and 
filled circles. POKE CIRF,0 for empty 
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circles or POKE CIRF,1 for filled ones. 

Memory location 208 is used with 
the command GRAPHICS. Since 
G.U.P. can only plot up to a co- 
ordinate of 255,191, the co-ordinates 
from 256,191 to 319,191 in graphics 
mode 8 cannot normally be access- 
ed. By poking an 8 into 208, the co- 
ordinate plane is shifted over 64 pix- 
els and A = USR(PLOT,0,0) would ac- 
tually plot at 64,0. 

The memory locations SETCOLOR 




to SETCOLOR + 8 are values that are 
copied into memory locations 704 to 
712 when a GRAPHICS command is 
executed. By poking into these loca- 
tions, the default colors of the screen 
can be changed, as they already are 
in G.U.P. For example, in graphics 
mode 0, to change the screen color 
to black, a POKE 710,0 is run. To set 
G.U.P. to make the screen black every 
time a GRAPHICS command is given, 
do a POKE SETCOLOR + 6,0 since 
710 = 704 + 6. 

SET COMMAND 

One of the best things about G.U.P. is 
that it doesn't just draw in solid col- 
ors. A 1x4, 2x4, 4x4 or 8x4 color pat- 
tern is stored at memory locations 
COLOR to COLOR + 3. The size of the 




pattern is determined by the graphics 
mode. This is because text modes use 
one byte per character, GTIA modes 
use one byte to display 2 pixels, 
4-color modes use one byte for 4 pix- 
els, and the 2-color modes can store 
8 pixels in a byte. 

The pattern can either be POKEd 
in, or put in with the SET command. 
This way circles can be drawn in a 
checkerboard pattern, lines can be 
dotted, and more. 

The formula for determining the 
parameters to use in the SET com- 
mand is quite simple. Just like BASIC'S 
COLOR command which selects one 
of the 4 color registers for plotting, 
each one of the 4 parameters passed 
in the SET command determines the 
color registers for a 4 x 1 array of pix- 
els in a 4-color mode, 8 x 1 in a 2 col- 
or mode, 2x1 in a GTIA mode. 

Using 2-color modes 4, 6 and 8, an 
8x4 pattern can be set up. This means 
that during PLOT, DRAWTO, LINE, 
BOX, or CIRCLE, the pixels will be 
plotted so that if the whole screen is 
filled up it will be made up of little 
8x4 boxes of the same pattern. By 
making the pixels alternate from black 
to white, a very fine checkerboard 
pattern is made as follows: Let 0 repre- 
sent a pixel in color 0 and a 1 repre- 
sent a pixel in color 1. The pattern is 
therefore 

01010101 
10101010 
01010101 
10101010 

This pattern represents 4 binary 
numbers. In decimal they are 85, 170, 
85 and 170. Therefore the command 
to give is: 

A = USR(SET,85 , 170,85 , 170) 

If you just want to plot with color 
1, the whole pattern would be l's and 
the four numbers would each be 255 
(11111111 in binary). Similarly, if you 
want to plot with color 0, use the 
number 0 four times. 

In a 4-color mode, 4 colors can be 
used so each pixel must be repre- 
sented by two bits: 00, 01, 10 or 11. 
This is why only 4 can be used in one 
byte. Similarly, in a GTIA mode, 16 
colors are possible, therefore 4 bits are 



required per pixel and only 2 pixels 
fit in one byte. 

In a text mode, 0, 1, 2, 12 or 13, 
the four numbers represent a block of 
1 x 4 characters. Each number is the 
ATASCII code of the character. 

If you wish to POKE these values 
instead of using the SET command, 




locations COLOR to COLOR + 3 are 
where the four parameters of the SET 
command go and can be POKEed 
directly. 

FEEL FREE 

Luckily, you don't really need to 
understand any of this. Simply try out 
different numbers in the SET param- 
eters until you see what you like. This 
holds true of all of G.U.p. Many of 
these routines may be placed in 
strings for those more advanced pro- 
grammers. Feel free to experiment. 

Darek Mihocka placed in the top 10 
in three nationwide Canadian uni- 
versity math and physics contests. 
He's a member of the Toronto Atari 
Federation and a licensed glider 
pilot. 

Listing on page 68 Q 
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In Australia there are more men than 
women and more cows than men. To 
keep the cows under control, ranch- 
ers use helicopters. Your helicopter is 
supposed to scare the cows into their 
holding pen. 

In case you've never buzzed a 
bovine with a helicopter before, you'll 
need some advice. As you maneuver 
your joystick-controlled copter closer 
to the herd; the animals get increas- 
ingly skittish and move away from 
you. Steering heifers into a corral isn't 
easy. 

While patiently waiting for you to 
get airborne, the cows move random- 
ly. Then after all of the cattle have 
been packed into their pen, the gate 
will close. You must return the copter 
to the landing pad for a full score. 

But if you run out of fuel, your heli- 
copter will crash and kill some inno- 
cent cows. 



USING THE PROGRAM 

To get this game off the ground, type 
in Listing 1, check it with TYPO II, 
and SAVE a copy. When you RUN 
Helicopter Roundup, you'll have to 
wait while the screen blanks for in- 
itialization (don't panic). Then you'll 
see the game. 

You can [SELECT] the number of 
cows to herd, and you can refuel dur- 
ing play by positioning the copter 
over the landing pad and pushing the 
joystick trigger. 

The game continues indefinitely 
until all cows are controlled or you 
crash. 

When he's not rounding up redefined 
cow characters, Walt Bulawa is an 
application programmer for the 
medical field. 

Listing on page 71 Q 




Cows? Helicopters? In your Atari? 
You bet! This BASIC action game 
challenges you to round 'em up from 
the air Works on all Atari computers 
of any memory configuration. 
Disk or cassette. 
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Vastly SUPERIOR to any translation programs 
available! FOR ATARI 
1200XL/600XL/800XL with 64K. 
ATARI 8 (Please specify computer model number!) ATARI " 

$69.95 (Rom) tuc $69.95 (Rom) 

$49.95 (D or C) 1 n C $49.95 (D or C) 

XL "FIX"! • 



The Atari XL series computers represent power, sophistication, and 
flexibility virtually unrivalled in todays Home Computer Market. 
With "approximately" 30-40% of existing software being "incom- 
patable", a real, and serious problem exists. Because of this we 
have developed THE XL "FIX"! 
ADVANTAGES over cheaper "translation products": 

1. The XL "FIX"! is capable of fixing more software ... an estimated 
30% more software! 

2. The XL "FIX"! is available in DISK, CASSETTE, and now ROM! 

3. XL "FIX"! versions fix ALL THREE types of software (Disk - Cassette - 
and Cartridges!) 

4. The XL "FIX"! (disk or cassette) adds OVER 4K of usable RAM to your 
computer (anyone using Data bases or Word processors will really 
appreciate this feature!) 

5. You never have to hold the OPTION button down on 600XL or 
800XL computers! 

6. VERY IMPORTANT! You need to load the XL "FIX"! only once ... you 
can change disks, cassettes, or cartridges without rebooting the XL 
"FIX"! each time (disk or cassette)! 

7. The ROM version is instantaneous upon computer power up, has a 
high speed cursor, is instantly switchable to your original operating 
system, will work with 16K600XL's, and more! 

The XL "FIX"! .... another SUPERIOR product! 64K required! 
DISTRIBUTOR/DEALER inquires welcome 



Mastercard-Visa-Money 
Order or Cashier Check. 
Phone (716) 467-9326 
Please specify computer 
model number! 



Send $49.95 ($69.95 for Rom) 
plus $4 shipping and handling 
(N.Y.S. residents please add 7%) to: 
COMPUTER SOFTWARE SERVICES 
P.O. Box 17660 
Rochester, New York 14617 
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THREE NEW PRODUCTS! 
THE "SUPER PILL"! 
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Exactly the same as the WORLD'S leading cartridge backup 
device . . . THE PILL! . . . except ifs even simpler to operate, if s 
SWITCHLESS! Excellent for families having young children. Totally 
eliminates opening computer doors and switches. THE "SUPER PILL"! is 
the most advanced state of the CARTRIDGE BACKUP device available 
today. It is totally compatable with all ATARI computers and all programs 
backed up by the original "PILL"! Only $79.95 plus $4 shipping and 
handling. 

THE "PROTECTOR/SILENCER"! 

The "PROTECTOR"! is a disk and hardware modification (no 
soldering) for Atari 810, 1050, and Indus GT disk drives that will allow you 
to write true BAD SECTORS wherever you wish (not to be confused with 
ridiculous speed control or tape jerking schemes!). Powerful disk 
program finds hidden directories, scrambles existing directories, fast 
maps, hex conversions, disk dupes, and much more! 

The "SILENCER"! quiets your drive tremendously (eliminates the 
LOUD grinding noise when you read a bad sector!), PLUS it allows you to 
WRITE TO BOTH SIDES of any disk WITHOUT cutting or notching the disk! 
Both for only $49.95 plus $4 shipping and handling. 

THE "COMPANION"! 

An amazing device that will enhance the capabilities of the 
XL "FIX"! or Atari Translator. It will allow you to de-select BASIC (no more 
need to hold the OPTION button while loading programs on the 600XL's 
and 800XL's), and it will allow you to de-select the DIAGNOSTICS (no 

more bad loads because of the DIAGNOSTICS jumping into the middle 
of your program load routine!). Installation is simple (1 0 minutes) and re- 
quires NO soldering! Only $29.95 plus $4 shipping and handling. 

DISTRIBUTOR/ DEALER inquiries welcome. 
Our other fine products include THE "PILL"!, XL "FIX"!, "IMPOSSIBLE"!, 
"METAMORPHOSES"!, and "REMOTE"! 

Mastercard-Visa-Money 
Order or Cashiers Check. 
Phone orders: 
(716) 467-9326. 
Atari is a TM of Atari Inc. The 
"METAMORPHOSES"! is a TM 
of Computer Software 
Services (division of S.C.S.D., 
Inc.) 



COMPUTER SOFTWARE 

SERVICES 

P.O. Box 17660 

Rochester, New York 14617 
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For years they said it couldn't be done . 



THE 

"IMPOSSIBLE"! 



® they claimed! 
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Backup almost any disk currently available (even heavily protected programs) with an UNMODIFIED disk drive! 

Works with ANY disk drive! 

PURPOSE: The "IMPOSSIBLE" was developed in response to the estimated half million disk drive users that own a drive other than the Atari 810 (Indus, Per- 
com, Trak, Rana, Astra, etc.) that wish to BACK UP their protected software. Due to a radically new technology developed by Computer Software Ser- 
vices, modification to your disk drive has been eliminated! The advantages are obvious! Drive warranties are not violated, the chance accidental 
damage has been eliminated, etc., etc. 

OPERATION: The "IMPOSSIBLE"! consists of a disk program (unprotected so you can make as many backups as you wish) and a 4K STATIC RAM pack 
which is inserted intoyourcomputer(nosoldering!)The"IMPOSSIBLE"! will read your program disk and then re-write It In an unprotected format! You may 
make additional backup copies using a sector copier or even regular DOS! Because your backup copy no longer has BAD SECTORS or EXOTIC FORMATS, 
the program data can now be manipulated into DOS compatable files (even double density!), transfered to cassette, etc. (with the aid of our Satellite 
programs!) No user programming knowledge required. A few programs require logical thinking. 
FEATURES: 1. Backup protected disks 5. AFSD-Automatic FUZZY Sector Discriminator 

2. Handles most MULTI-LOAD programs 6. Expands computer memory to 52K usable 

3. Makes DOS files (with Satellite option) 7. Simple NO SOLDER installation 

4. Up to 90K data input capable 8. Satellite expandable 

PROJECTED SATELLITES: A "COMPACTOR" program which will convert your program into DOS compatable files (double density compatable!) for the 
storage of several programs on one disk. A "COLUMN 80" program for Word Proccessing, etc. It allows 80 columns on the screen! The "XL-MATE" will allow 
programs made with your 400/800 "IMPOSSIBLE"! to now play on your XL Computer! The METAMORPHOSES II program will allow you to convert your pro- 
tected CASSETTES into disk DOS files and vice-versa. All satellite programs must be used with inconjunction with The "IMPOSSIBLE"! 
REQUIREMENTS: The "IMPOSSIBLE" diskette, the 4K STATIC RAM pack, a 400 or 800 computer (please specify!) with 48K and "B" Rom's. NOTE! The very old 
ATARI computers were shipped with "A" Rom's which had some serious "Bugs". Even if you don't own an "IMPOSSIBLE," you should upgrade to "B" Rom's 
(simple to install!) We have them available at a very inexpensive price. CALL US! "XL" version available soon! 

NOT A PIRATING TOOL: We at C.S.S. did not design The "IMPOSSIBLE"! to put Software Manufactures out-of-business overnight! Nearly all of our products 
have been "ripped-off" by industry parasite who have little or no ability to develop a product of their own so we can sympathize with their dilemma. All 
CSS products have built-in safe guards which prohibit their use for flagrant pirating. The "IMPOSSIBLE"! is no exception! While The "IMPOSSIBLE"! back- 
up the most heavily protected programs, it also checks to see that the 4K STATIC RAM pack is installed before allowing the backup copy to 
execute! 



EXAMPLES: The "IMPOSSIBLE"! has been tested on 300 of the most pop- 
ular and heavily protected programs we could find. With nearly 4000 
programs for Atari, we DO NOT guarantee that it will backup all pro- 
grams in the past-present-and future! We will supply updates at $6 each 
(non-profit!) if and when necessary. Programs we have successfully 
backed up include: Blue Max, Vlsi-cal, Archon, Mule, File Manager 800 
+, Syn Calc, Syn File, One on One, 7 Cities of Gold, Super Bunny, Load 
Runner, Drol, and Gumball just to name a few! 



Mastercard-Visa-Money 
Orders or Cashier Check. 
Phone: (716) 467-9326 
Please specify computer 
model number! 



Send $149.95 plus 

$4 shipping and handling 

(N.Y.S. residents please add 7%) 

COMPUTER SOFTWARE SERVICES 
P.O. BOX 17660 
ROCHESTER, N.Y. 14617 



THE MUSICIAN 

continued from page 37 

A dotted half note gets held for three 
beats of a measure. Sustained notes 
slide into the note which follows 
them instead of playing as separate 
notes. 

To choose a dotted, sustained 
eighth note, you would press the 
following three keys— [.] [8] [S]. The 
Musician isn't fussy. You may press 
keys in any order for a multiple-key 
note command. 

When you use the [ # ] or [B] to 
make sharps or flats, The Musician 
will stay in the sharp or flat mode un- 
til you press [N] for Natural. 

Rests are times when no note is 
played. To choose a quarter rest, first 
press [Q] to make a quarter note, then 
press [R] to make it a rest. Similarly, 
to make an eighth rest, press [8] [R]. 
Half rests are [H] [R]. 

Once you have selected the correct 
type of note and placed it in the right 
position on the staff, press your joy- 
stick button to enter it. 

Press [C] to Cancel the note if you 
change your mind. [C] always cancels 
the last note or the last chord entered. 

ENTERING CHORDS 

The Musician will recognize even the 
most advanced kinds of chords. En- 
tering chords is a snap since you enter 
them by name, not by notes. Press the 
asterisk [*] key to tell The Musician 
you want to enter a chord. The Musi- 
cian will display: 

ENTER A CHORD 
THEN PRESS RETURN 

To enter a C chord, press [ *] follow- 
ed by [C], then press [RETURN]. The 
Musician will display the name of the 
chord you have keyed in, and briefly 
play the chord. 

Using the Key of C as an example, 
here is a complete list of chord types 
recognized by The Musician. 



ENTER 


CHORD SELECTED 


C 


C major 


CM 


C minor 


CM7 


C minor seventh 


C7 


C seventh 


CM6 


C minor sixth 


C6 


C sixth 



CMAJ C major seventh 

C+ C augmented fifth 

C- C diminished fifth 

CD C diminished 

Sharp and flat chords are entered 
by adding the [#] or [B] keys. For in- 
stance, here's how to enter a C sharp 
minor seventh chord: 

Press [*] 

Press [C] 

Press [#] 

Press [M] 

Press [7] 

Press [RETURN] 

Chords in other keys are entered in 
exactly the same manner. For in- 
stance, you enter a G seventh as G7. 

If a chord is to play simultaneously 
with a certain note, enter the chord 
first, then enter the note. 

If you make a mistake when enter- 
ing a chord and wish to exit from 
chord mode, simply press [*] again. 
The chord will not be entered and 
you will return to note entry mode 
again. To re-enter the chord, press [*] 
again. 

Chords will continue to play in the 
background until they are changed to 
something else or turned off. To turn 
off a background chord, press [O]. 
The Musician will display: CHORD 
OFF. 

SONG PLAYBACK 

To hear a playback of the song you 
have entered, press [P} The song will 
play automatically and each note will 
appear on the staff as it plays. You may 
change the tempo of the song by 
pressing [T] before pressing [P] The 
Musician will display: 

CHANGE TEMPO SLOWER 

Press the joystick button to slow 
down the tempo. To speed up the 
tempo, first move the joystick for- 
ward. The word SLOWER will change 
to FASTER. Pressing the joystick but- 
ton will then speed up the tempo. 

After playing a song, it remains in 
the computer memory. You may con- 
tinue adding notes to the end of the 
song. You may clear it from memory. 
Or you may SAVE it to cassette or disk. 

Pressing [ESC] while a song is play- 



ing causes The Musician to im- 
mediately stop playing the song and 
return to note entry mode. 

SAVING A SONG 

To SAVE a song, press [A] for Archive. 
The Musician will display. 

ENTER SONG NAME 

If you are saving to cassette, just 
press [RETURN] . You will hear two 
beeps. Put your recorder on record, 
then press [RETURN]. 

If you are using disk, type in the 
song name. Do not use more than 
eight characters, since this becomes 
the file name. Three-character exten- 
sions are allowed if you like using 
them. Press [RETURN]. The Musician 
will write out your song. 

LOADING A SONG 

To load a previously saved song, press 
[L]. The Musician will ask you for the 
name of the song file. 

If you are entering the song from 
cassette, position the tape to the 
beginning of the song and press 
[RETURN].] 

If you are using disk, type in the 
song name and press [RETURN] . 

The Musician will load in the song 
and play it for you. Once a song is 
loaded it remains in memory until 
you clear it out. If you add notes after 
loading a song, they get appended to 
the end of the song. In this way, you 
can finish songs you saved only par- 
tially completed. 

CLEAR AND EXIT 

To clear a song from memory, press 
[CLEAR]. Do NOT use the [SHIFT] 
key. Now you may begin entering a 
new song. 

To exit The Musician, press [E] . The 
Musician will display 

EXIT Y or N 

Press [Y] to confirm your choice. The 
program will end and return you to 
BASIC. 

Angelo Giambra is a senior pro- 
grammer for Marine Midland Bank 
in Rochester, NY. His "Eight Queens 
Problem" appeared in the April, 
1984 Antic. 

Listins on page 61 Q 
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SOFTWARE 
LIBRARY 

fllttC type-in listing section includes every full-length program 
from this issue. Listings are easier to type and proofread, easy to 
remove and save in a binder if you wish. 



► ROTATE AND VIEW 3-D IMAGE IN ACTION! 

VIEW 3-D 54 

► ENHANCE YOUR PICTURE DETAILS LIKE NASA DOES! 

PIXEL SCANNER 58 

► YOUR ATARI MASTER WEAVER! 

COLOR INKLE LOOM 60 

► "MUSIC CONSTRUCTION'* SOFTWARE! 

THE MUSICIAN . . 61 

► JOYSTICK SELECTION OF PROGRAM HUES! 

COLOR PALETTE 64 

► FAST GRAPHICS POWER FROM BASIC! 

G.U.P. THE GREAT 68 

► LEARN AND PLAY GUITAR CHORDS ON YOUR ATARI! 

GUITAR TUTOR 69 

► GAME OF THE MONTH 

HELICOPTER ROUND-UP 71 

► LOGO 

TURTLE PIANO 74 

► ASSEMBLY LANGUAGE 

TURBO TYPO II 75 

TYPING SPECIAL ATARI CHARACTERS 52 

HOW TO USE TYPO II 53 ERROR FILE 53 



DISK SUBSCRD3ERS: You can use all these programs immediately. 
Just follow the instructions in the accompanying magazine articles. 

No part of this publication may be reproduced, stored in a retrieval system, or transmitted, in any form or by any means, 
electronic, mechanical, photocopying, recording or otherwise, without the prior written permission of the publisher. 

Antic program listings are typeset by Star's Gemini 10X Printer — From Star Micronics, Inc, 200 Park Avenue, New York, 
NY 10166. 
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TYPING SPECIAL 
ATARI CHARACTERS 

Antic printed program listings leave a small space between each Atari Special Character for easier reading. Im- 
mediately below you will see the way Antic prints all the standard Atari letters and numbers, in upper and lower 
case, in normal and inverse video. 

ABCDEFGHIJKLMNOPQRSTUUMKYZ 

ramHiaiiiiramoHraaGraHQ^ 

abcdefshi jki nnopqrstuvwxyz 
01234 56789 mQBBEISEIHSH 

The Atari Special Characters and the keys you must type in order to get them are shown in the two boxes below. 
(Squares are drawn around the normal video characters so you can see their positions more accurately, these squares 
will not appear in listings.) 





NORMAL VIDEO 


FOR 


TYPE 




FOR TYPE 


THIS 


THIS 




THIS THIS 


m 


CTRL 


f 


19 CTRL T 


m 


CTRL 


A 


H CTRL U 


a 


CTRL 


B 


E CTRL V 


a 


CTRL 


C 


S CTRL W 


s 


CTRL 


D 


S CTRL X 


H 


CTRL 


E 


E CTRL Y 


0 


CTRL 


F 


ffl CTRL Z 


S 


CTRL 


G 


E ESC ESC 


a 


CTRL 


H 


ffl ESC CTRL ■ 


□ 


CTRL 


I 


SB ESC CTRL = 


B 


CTRL 


J 


B ESC CTRL + 


3 


CTRL 


K 


S ESC CTRL * 


B 


CTRL 


L 


m CTRL . 


H 


CTRL 


M 


ffi CTRL ; 


u 


CTRL 


N 


1 SHIFT = 


E 


CTRL 


0 


H ESC 


m 


CTRL 


P 


SHIFT 


B 


CTRL 


Q 


CLEAR 


B 


CTRL 


R 


m ESC DELETE 


11 


CTRL 


S 


E ESC TAB 



INVERSE VIDEO 



FOR 


TYPE 




FOR 


TYPE 


THIS 


THIS 




THIS 


THIS 


□ 


A CTRL 


» 


□ 


A CTRL Y 


D 


A CTRL 


A 


D 


ACTRL 7 

' ' V>> 1 1 i 1 I— 


B 


A CTRL 


B 


□ 


ESC 


a 


A CTRL 


C 




SHIFT 


a 


A CTRL 


D 




DELETE 


B 


A CTRL 


E 


B 


ESC 


□ 


A CTRL 


F 




SHIFT 




A CTRL 


G 




INSERT 


n 


A CTRL 


H 


B 


ESC 


B 


A CTRL 


I 




CTRL 


□ 


A CTRL 


J 




TAB 


B 


A CTRL 


K 


B 


ESC 


a 


A CTRL 


L 




SHIFT 


H 


A CTRL 


M 




TAB 


B 


A CTRL 


N 


□ 


ACTRL . 


9 


A CTRL 


0 


□ 


ACTRL ; 


□ 


A CTRL 


P 


B 


A SHI FT - 


B 


A CTRL 


Q 


□ 


ESC CTRL 2 


B 


A CTRL 


R 


□ 


ESC 


B 


A CTRL 


S 




CTRL 


□ 


A CTRL 


T 




DELETE 


□ 


A CTRL 


U 


□ 


ESC 


n 


ACTRL 


V 




CTRL 


B 


A CTRL 


W 




INSERT 


B 


ACTRL 


X 







Whenever the CONTROL key (CTRL on the 400/800) or SHIFT key is used, hold it down while you press the 
next key. Whenever the ESC key is pressed, release it before you type the next key 

Turn on inverse video by pressing the Reverse Video Mode Key G2 . Turn it off by pressing it a second time. 
(On the 400/800, use the Atari Logo KeyJ|^ instead.) Note: In the printed listings, inverse characters willl be slightly 
smaller than the normal ones. 

Among the most common program typing mistakes are switching certain capital letters with their lower-case 
counterparts — you need to look especially carefully at P, X, O and 0 (zero). 

Some of Atari Special Characters are not easy to tell apart from standard alpha-numeric characters. Usually the 
Special Characters will be thicker than the alpha-numerics. Compare the two sets of characters below: 



SPECIAL 

s * 



CTRL F 
CTRL G 
CTRL N 
CTRL R 
CTRL S 



STANDARD 

s * l 

\ * SHIFT + 
- m SHIFT - 
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HOW TO USE TYPO II 



Type in TYPO II and SAVE a copy to disk or cassette. 

Type GOTO 32000 and follow TYPO II onscreen instructions. If the resulting two-letter line codes are not ex- 
actly the same as those in the magazine, you mistyped something in that line. 

To call back any line previously typed, type an asterisk [*] followed (without in-between spaces) by the line number, 
then press [RETURN]. When the complete line appears at the top of the screen, press [RETURN] again. This is also 
the way you use TYPO II to proofread itself. 

To LIST your program, press [BREAK] and type LIST. To return to TYPO II, type GOTO 32000. 

To remove TYPO II from your program, type LIST "D:FILENAME",0,31999 [RETURN] (Cassette owners LIST "C:). 
Type NEW, then ENTER "D: FILENAME" [RETURN] (Cassette— ENTER "C:). Your program is now in memory without 
TYPO II and you can SAVE or LIST it to disk or cassette. 

Owners of the BASIC XL cartridge from O.S.S. type SET 5,0 and SET 12,0 before using TYPO II. 



MB 32008 REM TYPO II BY ANDY BARTON 
UM 32O10 REM UER. 1.0 FOR ANTIC MAGAZINE 
HS 32020 CLR : DIM LINES C1203 : CLOSE «2 : CLO 
SE tt3 

BN 3203O OPEN »2 , 4 , O , "E" : OPEN »3,5,0,"E" 
YC 32040 ? ••i*" : POSITION 11,1:? " H'iJMHI " 
EM 32050 TRAP 32840 : POSITION 2,3:? "Type 

in a prograM line" 
HS 32060 POSITION 1,4:? •• ••: INPUT «2 ; LINE 

S:IF LINES^'" THEN POSITION 2, 4: LIST B 

: GOTO 3206O 
HH 32O70 IF LINES CI, 1J =«•»■• THEN B = UAL CLIN 

E5 C2 , LEN CLINES) ) ) : POSITION 2,4:LIST B : 

GOTO 3206O 
TH 32080 POSITION 2,1©:? "CONT" 
MF 32O90 B=UAL CLINESJ : POSITION 1,3:? ■■; 
NY 32100 POKE 842, 13: STOP 
CN 32110 POKE 842,12 



ET 



CE 
OR 



VU 

MJ 
JU 
EH 
BH 
HB 
IE 

UG 



32120 ? "n" : POSITION 11,1:? 
": POSITION 2, 15: LIST B 
32130 C=0:ANS=C 

32140 POSITION 2, 16 .'INPUT t*3 ; LINES : IF 
LINES = "" THEN ? "LINE "* J B 5 M DELETED" : G 
OTO 3205O 

32150 FOR D=l TO LEN CLINES) : C=C+1 : ANS= 

ANS* CC~ASC CLINES CD, D3 3 3 : NEHT D 

32160 CODE=INT CANS/676) 

32170 CODE=ANS- CC0DE«676J 

32180 HCODE=INTCCODE/26J 

32190 LC0DE = C0DE-CHC0DE**263+65 

322O0 HCODE=HCODE+65 

32210 POSITION 0,16:? CHRS CHCODE3 ; CHRS 
CLCODE3 

32220 POSITION 2,13:? "If CODE does no 
t natch press ■rla*iH;l?M and edit line a 
boue . " : GOTO 32050 



ERROR FILE 



BUS OVERLINES 

Some signals and address 
labels were printed with- 
out overlines in Part III of 
Earl Rice's Parallel Bus 
Revealed" (Antic, March 
1985). 

These are the correct 
labels: 

D8XX-DFXX 
CSJCHIP RESET) 
R/W 
D1XX 

RDE (READ DATA ENABLE) 
PS (DA TA STROBE) 
DRST (DEVICE RESET) 



FIRST LESSON IN 
ASSEMBLY 

Line 100 of the listing for 
"First Lesson in Assembly 
Language" (November, 
1984) should read POKE 
755,4 instead of POKE 
775,4. 

ROOKY'S QUEST 

February '85 

The following line is 
missing: 

2100 FOR S = 32 TO 16 STEP 
-4: SOUND 0,S,14,10: EA = EA 
*EA* EA: SOUND 0,0,0,0: EA = 1 
AO: NEXT S 



DRUM SYNTH 

February '85 

In Figure 1, the "ART" 
should be the Fuji (inverse) 
symbol. 



MISSING 
INFOBITS 

DECEMBER '84 
The AL source listing for 
Infobits (Dec '84) was left 
out of the previous issue. 
You'll find it in the Jan. '85 
Software Library. 



ADVENT X-5 

November '84 

Missing line: 8020 RUN. 
Also, cassette owners 
should change the 138 in 
line 4005 to 130. The 
TYPO II code for line 1005 
is T#. 



ADVENTURE 
ISLAND 

November '84 

Line 837 is missing its last 
item of data, a 4. Also, it 
will not run with DOS XL. 
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rotate and zoom 3-D images in ACTION 



VIEW ^-D 

▼ JL M i JL*r Article on pase 38. 

LISTING 1 

; GR78M CLI5TING 1) 

MODULE: INT xnow- C881 , ynow= C981 

BYTE cnow= Ell , key=764.ran=l06,cur=752 

BYTE ARRAY Mask7= E64 16 4 ll,clor=788 

, Mask8=C128 64 32 16 8 4 2 11, Mask, row 
CARD dlist=560,sa=88 

CARD ARRAY adr C1921 : CARD POINTER nes 

PROC Kolor CBYTE O RETURN 
PROC DotdNT x,yj RETURN 
PROC DitCIMT x,y) RETURN 

PROC LineToCINT x,y] 
INT dx, dy, xf , yf , a, b, X, i 
Dot (xnow, ynow) 

IF x=xnow AND y=ynow THEN RETURN FI 

IF x>xnow THEN dx=x-xnow:xf=l 

ELSE dx=xnow-x:xf=-i FI 

IF y>ynow THEN dy=y-ynow:yf=i 

ELSE dy=ynow-g:yf=-l FI 

x=xnow : y=ynow 

IF dx>dy THEN a-dy+dy : t=a-dx:b=t-dx 
FOR i=l TO dx DO x==+xf 
IF t<8 THEN t==+a 
ELSE t==*b:y==*yf 
FI DotCx,y) 

OD 

ELSE a=dx+dx:t=a-dy:b=t-dy 
FOR i=l TO dy DO y==+y* 
IF t<8 THEN t== + a 
ELSE t==+b:x==+xf 
FI Dot(x,y) 

OD 

FI xnow=x : ynow=y : RETURN 



FOR 1=182 TO 198 DO dCi]=14 OD : RETURN 



PROC Kolor8CBYTE c J : BYTE i 
cnow=c & 3: IF c>l THEN c=l FI 
FOR i=8 TO 7 DO Mask C7- i J =c : c ==LSH 
RETURN 



1 OD 



PROC Dot8(INT x, y] : BYTE xb,xr 
BYTE ARRAY 

pre=C127 191 223 239 247 251 253 2541 
IF x<8 OR x>319 THEN RETURN FI 
IF y<8 OR y>191 THEN RETURN FI 
xb=x RSH 3:xr=x AND 7:row=adr(y) 
rowcxb) ==& precxr) r. nask(xr) : RETURN 

PROC Dit8 CINT x, y] : BYTE xb,xr 
IF x<8 OR x>319 THEN RETURN FI 
IF y<8 OR y>191 THEN RETURN FI 
xb=x RSH 3:xr=x AND 7:row=adr(y) 
row(xb) == ■ Mask Cxr J : RETURN 

PROC Gr 8 CBYTE ARRAY d) : BYTE 1 

Mask=Mask8 : Kolor=Kolor8 : Dot=oot8 

Dit=Dit8 : d C3J =79 : d C99J =79 

FOR i=6 TO 98 DO dCi]=15 OD 

FOR i=182 TO 198 DO dCi)=15 OD : RETURN 



PROC Gr780N () : BYTE i : BYTE ARRAY dl 
Graphics C 8+161 : adr C01 =sa : dl=dl ist 
FOR i= 1 TO 191 DO adr C i 1 =adr C i -11 +48 OD 
dl==-4:dl C81=112:dl Cll=88:dl C21 =16 
FOR i=3 TO 198 DO d 1 C i 1 =d 1 C i +41 OD 
dl C1991=16:dl C2881 =66 : Mes=d 1 +281 
dl C2841==-4:dlist=dl : RETURN 

PROC Ko 1 or 7 CBYTE c 1 : BYTE i 
c==« 3:cnow=c 

FOR i=8 TO 3 DO Mask C3- i 1 =c : c ==LSH 2 OD 
RETURN 

PROC Dot7CINT x, y) : BYTE xb,xr 
BYTE ARRAY pre= C63 287 243 2521 
IF x<8 OR x>159 THEN RETURN FI 
IF y<8 OR y>191 THEN RETURN FI 
xb=x RSH 2:xr=x AND 3:row=adr(y) 
rowcxbl==& pre(xr) v. Mask cxr] : RETURN 

PROC D i t7 CINT x , yl : BYTE xb,xr 
IF x<0 OR x>159 THEN RETURN FI 
IF y<8 OR y>191 THEN RETURN FI 
xb=x RSH 2:xr=x AND 3:row=adr(y] 
row(xb)==! wask Cxr] : RETURN 

PROC Gr? CBYTE ARRAY d] : BYTE i 
Mask=Mask7 : Koior=Koior7 : Dot=Dot7 
D i t=D it7:d C31 =78 : d C991 =78 
FOR i=6 TO 98 DO dCi]=14 OD 
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LISTING 2 

; HISCl CLISTXNG 21 

MODULE: BYTE st : INT ARRAY 

JX=C1 11112221888111 11 
, jy=Cl 11112811281128 11 
BYTE ARRAY b=" 

PROC Set jxjy CBYTE iJ 

FOR i=8 TO 15 DO Jx Ci) ==-1 : jy Ci] ==-1 OD 
RETURN 

PROC Pb CBYTE il : b C81 =i : Print Cb] : RETURN 
PROC Mai t CCARD w, J] 

FOR j=8 TO w DO w==+l: w==-l OD RETURN 
; TRIG 

MODULE: BYTE ARRAY Si C911 

PROC SctTrig CBYTE t INT yl 
FOR t=8 TO 98 DO y=Ct*t)/^45 

y= Cy**tJ/5 : y=10O*t-y : y==/45 : S i Ct] =y 
OD RETURN 



INT FUNC sinCINT t,y]:t==MOD 368 
IF t<91 THEN y=SiCt] 
ELSEIF t<181 THEN y=Si C188-t) 
ELSEIF t<271 THEN y=~Si Ct-1881 
ELSE y=-Si C368-tl FI RETURN Cy 1 

INT FUNC cos CINT t,y]:t==MOD 368 
IF t<91 THEN y=SiC98~t) 
ELSEIF t<181 THEN y=~Si Ct-981 



JUNE 1985 



EL5EIF *<271 THEM y=-Si C270-D 
ELSE y=SiC*-2783 FI RETURN Cy ) 



PROC CPono :BYTE i 

FOR i=8 TO 4 DO clor(i)=CP(i) OD : RETURN 



; UECTOR 

INT FUNC ABSCINT x) 

IF x<0 THEN x=-x FI RETURN Cx) 

INT FUNC 5QRCINT x) : INT y 

IF x=0 THEN RETURN CO) FI : x=AB5 Cx) : y=0 

DO y==+l:iF y*y+y>x THEN RETURN Cy) FI 

INT FUNC UdotCINT ARRAY u,w) :INT x 
x=uCO)**wC0) :x==*vci3*w(l) 
x==+u(2)*w(2) : RETURN Cx} 

PROC VprodtlHT ARRAY u # w,u) 

u CO) =u Cl)**wC2) :u(8J==-M(2)»w(l) 

u(l)=u(2)*w(8) :u(l)==-u(0)»w(2) 

UC2)=UC0)~WC1) :uC2)==-uCD**wC0) 

RETURN 

PROC NorwizeCINT ARRAY V} : INT i,j,s 
i=ABSCvCO)3 

j=AB5(v(l)):lF i<j THEN i=j FI 
J=ABSCuC2)) :IF i<j THEN i=j FI 
IF i>100 THEN j=l+i/10O 

FOR i=0 TO 2 DO uCi)==/j OD 

FI 

FOR j=0 TO 1 DO s=Vdot(v,v):s=SQR(s) 
FOR i=0 TO 2 DO u (i) =v ti)*128/s OD 
OD RETURN 



LISTING 3 

; COLORS CLISTING 3) 

HODULE:BYTE ARRAY dfauit t5) * CP 
,C7=C52 24 130 194 01 
, C8=E52 26 O 194 208) 
,CM=E52 24 194 130 80] 

PROC incCC) :BYTE i 

i=cnow:cnow==+i : position C10* 23) 

IF i=3 THEN i=4:cnow=0 FI 

Kolor (enow) : i=c lor Ci) : PrintB (enow) 

Position(18,23) :PrintB(i RSH 4) 

PtitC 1 ) :Position(27,23) 

PrintBti ft 14): Pure ): RETURN 

PROC inc Hue C) : BYTE i,j 

IF cnow=8 THEN i = 4 ELSE i=cnow-l FI 
J=clor(i) RSH 4 
J==+l : IF j>15 THEN J=0 FI 
position(i8,23) :printB(j) :PutC ) 
clorCi) = CJ LSH 4)*CclorCi) ft 14) 
C7Ci)=c lor Ci) : RETURN 

PROC incLuwC) : BYTE i,j 

IF cnow=8 THEN i=4 ELSE i=cnow-l FI 

J=clorCi) ft 14 

J==*2 : IF J>15 THEN J=0 FI 

positionC27,23) :PrintB(j) : Put: C • ) 

cior Ci) = Ccior Ci) ft 240)+J 

C7Ci)=c lorCi) '.RETURN 

PROC DfaultCO'.BYTE i 

FOR i=0 TO 4 DO C7 C i ) =dfau 1 t C i ) 

cior Ci)=C7C») 
OD RETURN 



PROC SetOfaultC) :BYTE i 

FOR i=0 TO 4 DO dfaultCi)=C7Ci) OD: 
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PROC CHon C) : BYTE i 

FOR i=0 TO 4 DO c 1 or C i ) =CM C i ) OD : RETURN 

PROC Fixcol C) : incc C) 

DO WHILE key=255 DO OD 

IF key=l8 THEN key=255 : Inc C C) 
ELSEIF key=57 THEN key=255 : Inc Hue C) 
ELSEIF key=© THEN key=255 : Inc Lun C) 
ELSEIF key=58 THEN key =255 : D f au ItCO 
ELSE EKIT FI 

OD RETURN 

LISTING 4 

; DRA143D CLISTING 4) 

MODULE:BYTE lag= [8] , gf las= C7] 

INT sx, sy , nag= C33 , cx= C80J ,cy= C903 
,rx=C0) ,ry=[0) , rz= [0) , ri=[303 

CARD sal, dll, dl2, I inl6, 1 ini7, 1 inl8 

, lini9, lin20, lin21, lin22, lin23, linl5 

INT ARRAY P C809) , eye , foe , R C9) , E C9) , M C9) 
,Q=C2l:iO 5 5:100:0 O 0:0: 
50 O 0:18:0 O 0:2 :0 50 0:2: 
O O O:18:0 0 40:2:10 0 0:17: 
10 50 0:1:20 50 0:17:20 0 0:1: 
30 O 0:17:30 50 O:l:40 50 0:17: 
40 0 O:i:0 10 0:19:50 10 0:3: 
50 20 0:19:0 20 0:3:0 30 0:19: 
50 30 O:3:50 40 0:19:0 40 0:3) 

PROC FixPCINT ARRAY Q) : INT i,j 
Zero CP, 1618) : J=4~Q CO) +8 
FOR i=0 TO J DO PCi)=QCi) OD 
eye=p+2: foc=p+i8 : RETURN 

PROC RotdMT ARRAY u) : INT x,y,z,s,c 
y=u CD 

u CD =y*cos Crx)/128 : u C2) =y*sin(rx)/l28 

x=uC0) :z=u(2) :s=sincry) :c=cosCry) 

v CO) = (x*c -z**s) ^128 : u C2) = (x*s+z»c ) /128 

x=uC8) :y=vci) :s=sincrz) :c=coscrz) 

m CO) = x**c -y**s : u CD =x**s+y**c : u CO) ==/128 

v CD ==/128 : Norwize Cm) : RETURN 

PROC FixRC):iNT ARRAY u C3) , w C3) , u C3) 

v C8) =128 : v CD =0 : v C2) =0 : Rot Cv) 

WCO) =0 : wci) =128 : WC2) =0 : Rot Cw) 

uprod C v # w, u) :NornizeCu) 

R CO) =u CO) : R CD =u CD : R C2) =u C2) 

R C3) =w CO) :RC4)=wci) :RC5)=wC2) 

R C6) =u CO) : R C7) =u CD : R C8) =u C2) : RETURN 

PROC FixEC) :INT s 

E C6) =eye CO) : E C7) =eye CD : E C8) =eye C2) 
Nornize CE+12) 

IF EC8)=0 THEN E C3) =0 : E C4) =0 : E C5) =128 
ELSEIF EC6)=0 AND E C7) =0 THEN 

E C3) =0 : E C4) =128 : E C5) =0 
ELSE E C3) =-E C6) : E C4) =-E C7) 

E C5) =E C6)**E C6) : E C5) ==+E C7)~E C7) 

E C5) ==/E C8) : Homize CE + 6) 

IF EC8X0 THEN EC3)= — EC3) :EC4)=~EC4) 
EC5)=-EC5) 

FI 

FI yprod(E+6,E+12,E) :NornizeCE) : RETURN 
PROC FixMC) 

MCO) =Vdot CR, E) :MC3)=Udo-tCR,E + 6) 
MCI) =Vdot CR+6, E) : MC4) =Vdot CR + 6, E+6) 

N continued on next page 
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HC2J =VdO"t E) : M(5) =Vdot (R+12, E+6) 

Nornize(M) :Mornize(M*6) 

Uprod(M,M+6,M+12) : Norni ze (M+12) : RETURN 

PROC HaksxsydNT ARRAY o) : BYTE i 
INT PX,Py,PZ,t,d:IMT ARRAY w(3) 
FOR i=0 TO 2 DO w(i)=u(i)-foc ti) OD 
IF ufiag=l THEN px=Udot (w, W/128 

py=Udot (W, M*6) /128 

sx=cx^nag«px/2 : sy=cy-«a9*py/2 
ELSE d=eyet3) :t=na9*d/8 

px=Vdot (w, M) S±ZB : py=Vdot Cw, M+6)/128 

pz=Udot (w, M+12) /128 

d==-pz:lF d<4 THEN d = 4 FI : d==/4 

sx=t*px/d : sy=t*py/d : sx==+cx : sy=cy-sy 
FI RETURN 

PROC CLRO : Zero (sal, 7680) : RETURN 

PROC DrawCIMT ARRAY P) : BYTE i 

INT ARRAY pt 

Pt=P*18 

FOR i=± TO P(8) DO pt==+8 Maksxsy (pt) 
Kolor(pt(3) & 153 
IF Pt(3)<16 THEN L i neTo (sx f sy) 
ELSE Dot (sx f sy) : xnow=sx : ynow=sy FI 

OD RETURN 



FOR i=8 
RETURN 



TO 2 DO PrintI(pt(iJ):PutC' ) OD 



LISTING 5 



; UPDATES CLISTING 53 

PROC UVieuC) : Position (22, 153 
vflag==+l : IF wfiag>l TH EN ufiag=8 FI 
IF Mf ia9=0 THEN Print C ' 'taH JH sljUJEEH' ' J 
ELSE Print r »M An^M,CTI"i FI : RETURN 

PROC Ueye () : BYTE i : Posit ion (5, 173 

FOR i=8 TO 2 DO 

IF eye(i)<-18 THEN eye(i)=-iB 
ELSEIF eye(i)>18 THEN eye (i) =18 FI 
printi(cyeti)) : put ( • ) 

OD Position(24,17J 

IF eyet3)>280 THEN eye (33 =288 

ELSEIF eye(3)<18 THEN eye (33 =18 FI 

Printl (eye (33 3 : Put ( ■ 3 : RETURN 

PROC Unas(3 : Posit ion (37, 173 :nag==+l 

IF nag>9 THEN nag=i FI : Pr i ntl (nag) : RETURN 

PROC Urot(3 :Position(l2,183 :PrintI(rx) 
put( a 3 : Printl (ry3 : Put ( ■ 3 
printl(rz) :Pb(23 

FixRO :FixH() :CLR(3 :Draw(P3 : RETURN 

PROC Uri (3 :Position(35,183 
printl(ri) :put(« 3 : RETURN 

PROC UcendNT x,y) :position(8,19) 
pr intl (X3 : Put ( ■ 3 
printl(y) : put ( • 3 : RETURN 

PROC UfoctlHT ARRAY u) : BYTE i 
position (24, 193 

FOR i=8 T8 2 DD Pr i ntl (u ( i 3 3 : Put ( • 3 OD 
RETURN 

PROC UPtCINT n) :Positiori(5,22) :PrintI(n) 
Put(« 3: IF n<188 THEN Put: ( • 3 FI 
Position (38, 223 :Pb(83 : RETURN 

PROC Ucxyz (INT ARRAY Pt3 : BYTE i 
Position(l5,223 :PrintB(Pt (33 & 33 
IF Pt(33<16 THEN PrintC LineTo "3 
ELSE Print (•• Plot "3 FI 



PROC U3r (3 :Position(l,153 

IF gflag=7 THEN 9flag=8 : cx==*88 : CP=C8 

printC'xox GRAPHICS 8 xox") :Gr8(dll) 
ELSE 9flag=7:cx==-88:CP=C7 

PrintC'x GRAPHICS 7PLUS x»3 : Gr7 (d 1 13 
FI Ucen(cx,cy3 

CPon(3 :CLR(3 :Draw(P) : RETURN 

PROC UReset (3 : BYTE i 

Position C5, 17) :Pb(123 

Position(12, 183 : Pb (12) 

position (8. 19) :Pb(93 

Position(24,193 : Pb (143 

F8R i=l T8 8 DO P(i3=Q(i3 OD 

nag=3 : rx=0 : ry=8 : rz=8 : r i=38 : FixE (3 

Ueye (3 :Ufoc (foe 3 : Unas (3 : Urot (3 : Uri (3 

cy=98 : cx=l68 : gflag=8 : Usr (3 : RETURN 

LISTING 6 

: STICK3D (LISTING 63 

PROC JoyD (INT n3 ;8-EDIT, 
BYTE i,k,f:iNT ARRAY Pt 
IF n=8 THEN f=8 ELSE f =1 : 
n==+l : pt=P+18+8*n : UPt (n3 : 
Kolor(pt(33 & 15) :Maksxsy 
DO IF n>288 THEN EXIT FI 
I4HILE Strig(83=8 DD 

st=Stick(83 :Dit(sx,sy 

IF st<15 THEN Pt(23== 
Maksxsy (Pt3 :Ucxyz(p 

FI Dit(sx,sy) 

OD 

st=Stick(83 :Dit(sx J sy) 
IF key<255 THEN k=key : k 
IF k=33 THEN n==+l:UP 
IF Pt(33<16 THEN Li 
ELSE Dot(sx,sy) :xno 
IF f=l THEN 

FDR i=8 TO 3 DO P 
FI Pt==+8 : Koior (pt ( 
Maksxsy (pt3 :ucxyz(p 
ELSEIF k=18 THEN Pt (3 
ELSEIF k=18 THEN incC 
Pt(33 = (Pt(33 & 163 + 
ELSE key=k:EHIT FI 

FI 

IF st<15 THEN Pt(83==*j 
Pt (13==- jy (st3 :Maksxs 
FI Dit(sx,sy3 
OD P (83 =n-l : RETURN 



O 



1-ADD 

n=P(83 FI 
Ucxyz(pt) 
(Pt3 :Dit (sx,sy) 



jy (st) 
t3 



O 



ey=255 
t (n3 

neTo (sx,sy) 
w=sx:ynow=sy FI 

t(4+i3=Pt(i3 OD 
33 & 153 
t3 

3==! 16:Ucxyz(pt3 
(3 

enow: Ucxyz (pt) 



X(St) 

y (Pt3 : Ucxyz (pt3 



PROC JoyF (3 : BYTE i : INT ARRAY Pt (33 

IF cnow=8 THEN Kolor(13 FI 

FOR i=8 T8 2 DO pt(i)=foc(i) OD 

Maksxsy (pt) :Dit(sx f sy) :Ufoc (pt) 

DO 

WHILE Strig(8)=8 DD 

st=stick(9) :Dit(sx,sy) 

IF st<15 THEN Pt (2)==- jy (st) 

Maksxsy (pt) : Uf oc (pt) 
FI Dit(sx,sy) 

OD 

st=stick(8) :Dit(sx,sy) 
IF key=33 THEN key=255 

FOR i=8 TO 2 DO foc(i)=pt(i) OD 

CLRO :Draw(P) : Maksxsy (pt) 
ELSEIF key<255 THEN EXIT FI 
IF st<15 THEN Pt (8)==+ jx (st) 

Pt (l) = = - jy (st) : Maksxsy (pt) : Uf oc (pt) 
FI Dit(sx,sy) 



O 
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OD Ufoc Cfoc) : RETURN 

PROC JoyEC) :IMT X,y,Z 
x=eye(0) :y=eye(i) :z=eye(23 
DO st=5tick(8) :UeyeC) 

WHILE StrigC8)=8 DO st=5tick(8) 

eyeC2)==-jytst) :eye(3)==+ jxCst) 

Ueye C) 

OD 

IF key=33 THEN key=255 

FixEC) :Fi*MC) : CLR C) :Draw(P) 
x=eye(8) :y=eye(l) :z=eye(2J 
EL5EIF key<255 THEN EKIT FI 
eye(8)==+jx(st) :eye(i)==- jy est) 
OD eye C8) =x : eye CI) =y : eye C2) =z : Ueye CJ 
RETURN 

PROC JoyCO.INT x,y 

IF cnowrfl THEN Kolor(l) FI 

x=cx:y=cy:Dit(x,y) 

DO st=5tick(8) :UcenC*,y) :DitCx,y) 
IF key=33 THEN key=255 

cx=x:cy=y:CLR() :Draw(P) 
ELSEIF key<255 THEN EKIT FI 
x==+jx(st) :y==+ jy(st) :Dit(x # y) 

OD Ucen (cx, cy] : RETURN 

LISTING 7 

; DISKIO CLISTING 7) 

MODULE: BYTE err 

BYTE ARRAY f in C16) , abort=» ■vniiif 

PROC HyErr CBYTE e) 

position CI, 16) :Print f " ■*rlrli1f» "l 

printB(e) :err=i:MCSA=iin2i 

Position C12, 21) :PrintBCe) 

WHILE key=255 DO OD key=21 : RETURN 

PROC CI0=SE456 CBYTE a,x) 

PROC 102 CBYTE end CARD buf,len) 
BYTE I0CMd=866 ; 7-LOAD 11-SAVE 
CARD IObuf=868,I01en=872 
IOCMdrcnd : iobuf =buf : loien=len 
CIO CO, 32) : RETURN 

PROC Dir () : BYTE i, j,lft=82 
BYTE ARRAY a C18) , f C9) 
1 ft=22: Position C22, 3) 

FOR i=l TO 11 DO PbC16) :PutEC) OD 
Position C22, 3) : i=8 
Close C2) : Open C2, "D W3D", 6, 8) 
FOR i=l TO 22 DO lnputSDC2,a) 

IF a CO) =16 THEN EKIT FI 

SCopySCf ,a,3,18) :Print(f) 

IF J=8 THEN JsilPUtC ) 

ELSE J=8:PutEC) FI 
OD Position C22, 14) : Print ca) 
CloseC2) : 1 f t=l : RETURN 

PROC inp CBYTE ARRAY f ) : BYTE i 
BYTE ARRAY a C18) 
5Copy(f,»D: 

position C23, 16) :PbC15) 
position C23, 16) :lnputSCa) 
i=aC8)*3:lF i>ll THEN i=ll FI 
Sflssisn Cf , a, 3, 18) : SAss i gn C f , " . V3D", i , 
position C23, 16) :Print(f) -.RETURN 

PROC SavePC):BYTE k : CARD n,t 
Posit ion CI, 16) sPrintcBOOB "5 

inpCfin) 

position CI, 16) : Pr i nt C" ESI -WEEBBM") 
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WHILE key-255 DO OD k=key : key=255 
IF k<>62 THEN Pos i t i on CI , 16) : Put C ■ S) 

Print (abort) : RETURN 
FI t=Error : Error=MyErr : err=8 
n=8**PC8) +18: Close C2) :0PenC2, fin, 8, 8) 
IF err>8 THEN C l ose C2) : Error=t : RETURN FI 
I02Cll,P,n) : 102 Cll, C7, 5) :CloseC2) 
positiond, 16) "-Print C" ••) 
Error=t : Dir C) RETURN 

PROC LoadPC) : BYTE k : CARD n,t 
Position CI, 16) :Printf" lMil.Bif >•) 

inp(fln) 

Position Cl, 16) : Print C"' CD -flDEIZuJi") 
WHILE key=255 DO OD k=key : key=255 
IF k<>8 THEN Pos i t i on Cl , 16) : Put C ■ L) 

Print(abort) '.RETURN 
FI t=Error : Error=MyErr : err=8 
Close C2) : Open C2, fin, 4, 8) 

IF err>8 THEN C 1 ose C2) : Error=t : RETURN FI 
I02C7,P,2) :n=8~PCB)+16 
I02C7,P+2,n) :I02C7,C7,5) :CloseC2) 
position Cl, 16) : Print C" ■WnYltlaiiMi »■) 
Error=t : SetDf aui t C) :CPonC) 
position C38, 19) =PbC6) : RETURN 

LISTING 8 

; PRINTIO CLISTING 8) 

PROC PPtCINT ARRAY u) 
PrintDC2, , "C'") : Pr intID C2, m C8) ) 
printDC2,"" ") : Pr i ntID C2 , u CD ) 
printDC2," ■•) : Pr intID C2, v C2) ) 
PrintD(2,":") : Pr i ntlD C2 , v C3) ) 
pr intD C2, ") ") : RETURN 

PROC Prnt C) : BYTE i,J,k:CARD n,t 
BYTE ARRAY a C13) , st= C3 27 51 161 

,pre=[4 27 75 192 8),s,dC193) 
position Cl, 16) : Print C'WBBHDEUSH "j 
WHILE key=255 DO OD k=key : key=255 
IF k<>18 AND k<>58 THEN Pos i t i on Cl , 24) 

PutC'P) --Print (abort) : RETURN 
FI : t=Error : Error=MyErr : err =8 
CloseC2) :OPenC2, ,, P: ,, ,8,8) 

IF err>8 THEN C l ose C2) : Error=t : RETURN FI 
bC8)=12:SCopy Ca,b) :SCopy5Ca, fin, 3, 14) 
PrintDEC2," ") : Pr i ntDE C2 , a) 

IF err>8 THEN C 1 ose C2) : Error=t : RETURN FI 
IF k=18 THEN st C3) =16 : Pr i ntDE C2 , st) 
s=sal:dC8)=192 
FOR i=8 TO 39 DO n=7648+i 

FOR J=l TO 192 DO d C j) =s Cn) : n==-48 OD 
printDC2,pre) : Pr i ntDE C2 , d) 

OD 

ELSE stC3)=28:PrintDEC2,st) 
printD C2, H eye=") : Ppt (eye) 
printDC2," focus=") :ppt(foc) 
printDEC2," ■•) : i =8 : J=8 : n=P+lB 
DO i==+l:IF i>PC8) THEN EKIT FI 
j==-t-l : n= = *-8 : PPt cn) 
IF J>2 THEN J=8:PutDEC2) FI 
OD PrintDEC2, 1 ' ") 

FI Position Cl, 16) rprint C" ■ •JrM;H*iJi •«) 

Error=t : Close C2) : RETURN 



LISTING 9 

i MENU 3D CLISTING 9) 

PROC Menu €3: BYTE i . 1 f t=82 : BYTE ARRAY dl 
dl=dl2-5:dl ist=dl :dl2=dlist 

continued on next page 
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IK 
IY 
IZ 
II 
'■J 



Paul Chabot 

G Gr7/8«i 
V View ■• 
M Mas. 
C Col on* 



1985") 
WEEEEBBKiSi 



inc rx| 
inc rvl 
inc rz| 

inc ri 
Dec r i 



D L 5 P 



FOR i=8 TO 12 DO dl C i ) =d 1 C5 + i J OD 
dl Cl)=48:dl C2J=48:dl C33=7l:dl C6)=6 
dl C81=48:dl C22)=6:dl C23)=6:dl C245=16 
dl C263=16:dl C28J =16 : dl C38)=16 
dl C32J=16:dl (353 =d 1*255: 1 f* = l 
Print (" view 3D •*) 
PrintE ( 
PrintEt 
PrintE ( 
PrintE ( 
PrintE ( 
PrintE ( 
PrintE ( 
PrintE C 
PrintE ( 
PrintE ( 
PrintEC 
PrintE ( 
PrintE ( 
PrintE ( 
PrintE ( 
print 
PrintE C 
PrintE ( 
PrintE ( 
PrintE C 
PrintE ( 
PrintEC 
PrintE C 
PrintE C 
Print (" 



11 ADD Points/Lines ■* 

12 EDIT Points/Linesi' 
■3 Change EYE/dist. ■' 

14 Change FOCUS ■' 

15 Change CENTER ■' 



GRAPHICS 7PLUS x 



f i lenaMe>>") 
dist . 



preRotated 
Center 



nag* 1 
ri=") 



Foe U5") 



Cany key] - MENU 

pttt color") 

loior Oue Olun 
1 ini5=sa+608 

1 ini6=sa+640 : 1 ini7r 5 a + 680 : 1 i nl8=sa+ 
lini9=sa+768 : lin20=sa+88B : lin21=sa+ 
1 in22=sa+888 : 1 in23=sa+928 : RETURN 



efauit") 



729 
848 



LISTING 10 

VIEU3D CLISTING 181 
by Paul Chabot 
ANTIC Magazine 



INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 



'D : GR78M- ACT" 
D:MISC1. ACT" 
'D : C0L8RS - ACT"" 
D:DRAU3D. ACT" 
'D: UPDATES. ACT" 
'D : 5TICK3D - ACT" 
'D : DISKIO - ACT" 
D.'PRINTIO. ACT" 
D--MENU3D- ACT" 



PROC Setup C) : BYTE i 

SetTrisO :5et jxjy() :SetDfauit() :FixP(Q) 
GP780N C) :dli=dlist : sal=sa : ran= = -33 
Graphics C8) : ran==+33 :d!2=dl ist:cur = i 



CMonc) :MenuCJ :DirC) :UReset() :dlist=dil 

nes^=l in28 

RETURN 

PROC Main CJ : BYTE k:5etup() 

DO WHILE key=255 DO OD k=key : key=255 

dlist=dll: CPon C) 

IF k=31 THEN nes~=lin22 :± 
joy D CI) 

ELSEIF k=38 THEN nes^=lin22 ;2 

CLRC) :JoyD(0) 
ELSEIF k=26 THEN wes^=linl7 ;3 

JoyECJ 

ELSEIF k=24 THEN nes^= 1 i njL9 ;4 
JoyFCJ 

ELSEIF k=29 THEN wes^=lini9 ;5 
JoyCC) 

ELSEIF k=58 THEN wes^=lin28 ;8 

UReset C) 
ELSEIF k=22 THEN Mes^=linl8 

rx_ (rx+ri + 368) 



MOD 368:Urot() 



ELSEIF k=43 THEN wes^=linl8 ;Y 

ry=try+ri+368) MOD 360:Urot() 
ELSEIF k=23 THEN Mes^=iinl8 ;Z 

rz=(r2+ri+368) MOD 368:Urot() 
ELSEIF k=13 THEN Mes^=linl8 ; I 

ri==+l:IF ri>45 THEN ri=45 FI:Uri() 
ELSEIF k=l THEN nes^=linl8 ;J 

r i ==-1 : IF ri<-45 THEN Pi=-45 FI:Uri 
ELSEIF k=18 THEN wes^=lin23 ;C 

FixCol () 
ELSEIF k = 16 THEN nesA=Hnl5 ;U 

Uuiewo :CLRC) :Draw(P) 
ELSEIF k=37 THEN Mes^=lini7 ;M 

Unas () 

ELSEIF k=58 THEN dlist=dl2 ;D 

CMon C) : Dir C) 
ELSEIF k=0 THEN Mes^=linl6 ;L 

LoadP C) : Ueye C) : Uf oc (foe) : Fi xE () 

FixMO :CLRC) :Draw(P) :nes^=lin28 
ELSEIF k=62 THEN Mes^=lini6 ;S 

SavePt) :nesA=iin2fl 
ELSEIF k=61 THEN nes^=linl5 ;G 

U9r C) 

ELSEIF k=18 THEN wes^=linl6 ;P 

Prnto :iie5A=iin20 
ELSEIF k=33 THEN Mes^=lin28 ; SPACE 

CLR C) : Draw CP) 
ELSE dlist=dl2:CMon[) 
FI 



OD 



enhance your picture details like NASA does! 



PIXEL SCANNER 



LISTING 1 



Don't type the 
TYPO II Codes! 



WY 18 REM 6TIA pixel averaging 

ON 28 REM BY LYN BUCHANAN 

F14 38 REM (cj 1985, ANTIC PUBLISHING 

ML 48 GOTO 388 

IK 188 REM PIXEL AVERAGING ROUTINE 

RM 118 REM SET AREA TO BE ENHANCED 

US 111 REM Y — COORDINATE RANGE 

FU 112 FOR Y=l TO 88 

VP 113 REM X-COORDINATE RANGE 

EL 114 FOR X=l TO 77 

FS 115 REM STOP ATTRACT MODE 



JR 

SX 

DN 

KP 
DZ 
JF 
XF 
JR 
HV 
OL 



Article on page 14. 



116 POKE 77,8 

128 REM LOCATE EACH PIXEL AND ASSIGN 
TS VALUE TO A VARIABLE 



121 
122 
123 
124 
125 
126 
127 
128 



LOCATE 
LOCATE 
LOCATE 
L O C A T E 
LOCATE 
LOCATE 
LOCATE 
LOCATE 



X-l , Y-l , 
X-l , Y , B 
X - 1 , Y t 1 , 
X , Y- 1 , D 
X , Y , E 
X , Y + 1 , F 
X+l , Y-l , 
X* 1 . Y , H 
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IH 129 LOCATE H+1,Y+1,I 

CG 138 REM AVERAGE ALL PIXEL VALUES 
KG 131 K=IHT((fl+B+C+D+E*F+G+H+I)/9) 
Y F 132 REM LIGHTEN THE BACKGROUND 
YL 133 IF K = 8 THEN K=8 

DF 148 REM REPLOT PIXEL IN NEU COLOR 
GB 141 COLOR K:PLOT K, Y+95 
UA 158 REM RETURN FOR THE NEKT PIXEL 
US 151 NEKT K:NEKT Y 

DC 168 REM LOCK SCREEN IN GR.9 MODE 
GP 161 POKE 77, 8:S0UND 8 , 65 , 14 , 14 : GOTO 16 
1 

SF 199 REM 

RM 288 REM DRAM STICK FIGURE BIRD 
KK 281 GRAPHICS 9 : POKE 712,144 
EN 218 REM DRAU TAIL 

OY 211 FOR K=l TO 15:C0L0R K-PLOT 15+X,75 

:DRAUTO 3+K/4 , 71-K/2 : NEKT K 
IK 228 REM DRAU BODY 

SJ 221 FOR K=16 TO 4 STEP -l: COLOR K:PLOT 

15+K/0 .6,74-K:DRAMT0 60-K/l . 8 , 71-K 
TZ 222 PLOT 15 + K/0 • 6 • 6 6 + X : DRAUTO 60-K/1.8 

,66*H:NEHT K 
QE 238 REM DRAM WINGS 

VP 231 FOR K=l TO 16: COLOR K-PLOT 4,63:DR 
AMTO 18+K , 18-H/2 : DRAUTO H**2 ♦ 2 8 , 6 6 - K/4 : 
DRAUTO K*2+24,66-K/4 

QJ 232 DRAUTO 4 6 + K , 2 0 - K/2 : D R A UT O 75,45:NE 
KT K 

QL 248 REM DRAU HEAD 

LM 241 COLOR ll:FOR K=l TO 22:PL0T 48+K/2 



TO 5 : PLOT 
K:FOR K=l 
75 , 55 



73 , 67 : D 
TO 15 : P 
NEKT K 



TO 56:PL0T 6 8 , Y : D 



POKE 712,28 



, 60-H/2 : DRAUTO 6 8 - K/6 , 6 8 - K/2 : N E K T K 
RU 258 REM DRAU BEAK 
US 251 COLOR 15:F0R K=l 

RAUTO 48*K , 67-K : NEKT 

LOT 49+H/2 , 67 : DRAUTO 
KN 268 REM DRAU EYE 
RY 261 COLOR 0:FOR Y=54 

RAUTO 62,Y:NEKT Y 
LV 278 GOTO 188 
SG 299 REM 

KE 388 GRAPHICS 8:P0KE 718,28: 

:POKE 789,2 
QY 381 ? :? :? , ,, HOara■QOQSH■ram^QraHQC]H ,, : ? 

0 by Lyn Buchanan":? 
NR 382 ? "This demo progran draws a stick 

-fisurebird using nornal PLOT and DRAU 

TO" 

ZT 383 ? "comiands. Then the progran »co 
nputer enhances* the inage by sanpling 
the" 

YR 384 ? "color value of each pixel, and" 

:? "averaging it with the values of th 

e surrounding pixels.":? 
SD 385 ? "The BASIC routine is slow (take 

s aboutl2 Minutes) , but the results ar 

e worththe wait.":? 
ZK 318 POKE 752 , 1 : POSITION 12,22:? "READY 

? PRESS ■HOHHQfH" : POKE 5 3279,8 

VH 328 IF PEEK (53279) <>6 THEN 328 
SO 338 POKE 53279, 8:G0T0 280 



I/O 



IF To W — • """" 



T ! ,Ire vable price! f qR THE SOrHiai iv* wtod 



^^^^ ] 

^L^ a cornyChristm3Ssceneco^e« < . , 5nJmreco «l W thmod 



□ 



□ 
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COLOR INKLE LOOM 



LISTING 1 



Don't type the 
TYPO II Codes! 
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GO 10 REM COLOR INKLE LOOM 

KJ 20 REM GERALD M . HAGOPIAN 

FU 30 REM tc) 1985, ANTIC PUBLISHING 

MF 48 DIM flHS5(3) ,CLS(H8) ,CLi5(48) ,5BSC1) 

,5B1S(1) ,CR$(i) ,MEAV$(7684) 

UY 58 MEAV$(l)= ,, » ,, :MEAU5(7684)=MEftVS:UEAV 

$(2)=UEAUS:ADK=ADR(UEAUS) 

FG 68 L0D=8 

PS 78 GOSUB 828 '.GOTO 988 

ST 88 GOSUB 9 38 

RK 98 5CRN=PEEK (88) *PEEK (89) *256 

GO 188 «=8:A=i:B=3 

OT 118 IF LOD THEN J N K= U S R ( A D R ( " b hriElhnrahn 

) , ADK, SCRN , 7688) 
KU 128 IF LOD THEN POKE 7 1 2 , A S C ( WE A V S ( 7 6 8 
1 , 7681) ) 

MR 138 IF LOD THEN FOR Y=788 TO 718:P0KE 
Y,A5C(MEAV5(V+6974.Y+6974)) :NEHT V:GOT 
O 158 

UK 148 POKE 712,8:P8KE 718,34 

BP 158 FOR K=l TO 79:C0L0R K/5 : SOUND 8,25 
5- CK~2) , 18 , 8 : PLOT K,158:DRAUT0 K,168:N 
EHT K : SOUND 8,8,8,8 

00 168 GOSUB 188:P0KE 559,34 

ME 178 GOTO 288 

HN 188 POSITION 8,8:? CHR$ (125) : POKE 752, 

l:POKE 718,34 
JS 198 ? M tA BC DE FG HI JK L 

M N 0":RETURN 
AL 288 REM LOOM SET UP 
MY 218 CLOSE "1 '• OPEN «1 , 4 , 8 , 41 K : " 
QY 228 IF LOD THEN LOD=0:GOTO 718 
KY 238 GOSUB 188:POSITION 8,3:? "Number o 

f threads per harness?":? "(LIMIT 39) 

";:INPUT H:? : IF H<1 OR H>39 THEN 238 
UN 248 GOSUB 188 

OG 258 POSITION 8,3:? "SURE? (Y/N) ": 

GET U1,K:IF K<>89 THEN 238 
N A 268 H = l : Y = 8 : COLOR 8:PL0T X , Y : D R AWT O H, 

Y:PLOT H,Y:COLOR 15:DRAUT0 H~2 , Y 
UR 278 REM HARNESS SET UP . 

TO 288 CLOSE «1 : OPEN «1, 4, 8, "K: M : POKE 752 
, 1 

PC 298 K=l:Y=8:ET=4 
DC 388 FOR T=l TO H 

NP 318 GOSUB 188:POSITION 8,3:? "Harness 
•tl : Thread tt ";T:? M Color Selection?" 
:GET »1,K:IF K<64 OR K>79 THEN 318 

UK 328 GOSUB 188 

00 338 CL=K-64 

KM 348 CL$ (T, T) =CHR5 (K) 

JT 358 FOR X = X TO X + 1 : COLOR C L : PLOT H , Y : D 

RAUTO X,ET:NEXT X 
FT 368 POSITION 8,3:? "Color OK (Y/N) ?": 

GET «1,K:IF K<>89 THEN X=X~2:IF K<>89 

THEN 318 
KN 378 NEXT T 
AB 388 X = l : Y = 5 : ET = Y + 4 
MT 398 FOR T2=l TO H 

FY 488 GOSUB 188:P0SITI0N 8,3:? "Harness 
*»2 : Thread tt ";T2:? M Color selection? 
":GET «1,K:IF K<64 OR K>79 THEN 488 

UJ 418 GOSUB 188 

MU 428 CLl=K-64 

ED 438 CL15 (T2 , T2) =CHRS (K) 

ID 448 FOR X = X TO X + 1 '- COLOR CLl:PLOT X , Y : 

DRAWTO X,ET:NEXT X 
F R 458 POSITION 8,3:? "Color OK (Y/N) ?": 

GET tti.KrlF K<>89 THEN X=X~2:IF K<>89 

THEN 488 
FQ 468 NEXT T2 

DU 470 POSITION 0,0:? "* Press START to w 

eave.":POKE 53279,8 
DO 488 IF PEEK(53279) <>6 THEN 488 
AB 490 POKE 53279,8 
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IN 588 REM HEAVING ROUTINE 

FI 518 POSITION 8,0:? WE A V 

IMG" 

DH 520 FOR K=l TO 79:C0L0R 0 : SOUND 8,255- 

(K»2) , 10 , 8 : PLOT K, 158 : DRAUTO K,168:NEX 

T K : SOUND 8,8,8,8 

538 X = l : Y = 8 : ET = 4 

548 FOR R = 1 TO 15:K=i 

558 FOR 1=1 TO H 

568 5BS=CL5 (1,1) 

578 CL = ASC (SB5) -64 

588 FOR X = X TO X>1:S0UND 8 , R N D ( 1 ) *2 5 5 , 

18,8:C0L0R CL:PLOT K . Y : DRAUTO X,ET:NEX 
T X 

598 SOUND 8,8,8,8:NEXT I 

688 X = 1 : Y=ET+i : ET=Y+4 

618 FOR 1=1 TO H 

628 SBS=CL1 5 (1,1) 

630 CL1 = ASC (SB5) -64 

648 FOR X=X TO X+1:S0UND 1 , R N D ( 1 ) ~2 5 5 , 

18, 8: COLOR CL1:PL0T X,Y:DRAWTO X , E T : N E 

XT X 

658 SOUND 1,8, 8, 8 '-NEXT I : Y = ET ♦ 1 : ET = Y*4 



OT 

GG 
ZT 
DZ 
E J 
MX 



U J 
PP 
ZM 
KG 
RY 
PH 



JU 

EZ 



01 
U J 



T U 

zu 



NP 

ZD 



P Y 
UM 



PU 
JK 
MB 



CO 
BM 

PM 

MZ 
PX 



668 NEXT R 

678 jnk-usr (adr ( " h hnCThnrahrimhniihritahnGSH ♦ 
nmniinoQ loonoraQ locnamawara^G* •■ 3 ,scrn,adx,7 

688 ) 

680 UEAV5C7681, 7681) =CHRS (PEEK (712)) 

698 FOR H=7682 TO 7684 : WE A U S (X, X) =CHR$ 

(PEEK (X-6974 )): NEXT X 

788 REM VALUE CHANGE OF WEAVING 

710 ? "*do you wish to change the ualu 

e? CY/N) ":GET tt 1 , K : I F K<>89 THEN 780 

720 TRAP 730 

730 ? "*Type a letter between A (darke 
st) and O ( l i ghtest) » : GET «1,K:IF K<65 

OR K> 79 THEN 730 
7-40 V = K-64 

750 A =PEEK (712) : P8KE 712, U:? "*Ualue O 
K? (Y/M)"; :GET »1 , K : IF K<>89 THEN POKE 
7 1 2 , A 

760 IF K<>89 THEN 738 
7 78 TRAP 48808 

788 ? "isMeaue asain? (Y/N) " : GET «1 , K : I 
F K=89 THEN GOSUB 1538: IF K=89 THEN 18 
O 

790 ? "nReturn to Menu? (Y/N) " : GET «1, 
K: IF K=89 THEN POP :GOTO 1818 
800 ? "»s Leave prosran? ( Y/N ) " : GET «1 , 
K: IF K<>89 THEN 788 

818 ? "* Sure? (Y/N) " : GE T «l , K 

:IF K=89 THEN GRAPHICS 8 : END 
820 REM TITLE ROUTINE 

838 GRAPHICS 2 + 16 '.COLOR 2:P0SITI0N 8,8 



JU 848 F8R LG = 8 TO 4:? «6 ; "E3*E3**£3*£3»E3*C»C3* 

S**C~E3" : FOR DL = 1 TO 38:SOUND O.RHD(i)*2 

88,18,8: NEXT DL 
UC 85 0 ? *«6 ; "**a*C3*C3*S3*C3*C3**S3*»Si*C3*" : FBR DL = 

1 TO 50: SOUND 1, RND (1)**288, 18, 8 : NEXT D 

L:NEXT LG 

HU 868 FBR DL=1 TD 388:NEXT DL:S8UND 8,8, 

8,8:S8UND 1 , 8 , 8 , 8 : S 8 U N D 1 , 9 6 . 1 0 , 8 : P O S I 

TI8N 8,4:? »6 ; " THE 
ZS 870 FBR DL = 1 TD 188:NEXT D L : SOUND 8,12 

1 , 18 , 8 : POSITION 8,5:? »6 ; " COLOR L 

OOM 

GS 880 POSITION 6,8 

LU 898 FOR DL=1 TO 188:NEXT DL:SOUND 2,81 
, 10 , O : POSITION 8,6:? »6 ; " BY GMH 

«■ 

MV 988 FOR L=l TO 888:NEXT L 

RD 918 FOR S - O TO 3:S0UND S,0,O,O:NEXT S 
ZJ 920 RETURN 

WZ 930 REM SET UP TEXT WINDOW 
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VT 948 POKE 54286 / 0 : GRAPHICS 8:POKE 87,11 
:POKE 623,192:P0KE PEEK (568) +256*PEEK ( 
561) +166 / 143 : RESTORE 

RP 958 ADDRES=1536 : POKE 54286, 64:FOR K=8 
TO 18.READ P:P8KE flODRES*K, P : NEKT K:P = 
INT (ADDRES/256) : POKE 513, P 

VK 968 POKE 512 , 8DDRES-256*P : POKE 54286,1 
9 2 : DATA 72,173,111,2,41,63.141,18,212, 
141,27,288,169,8,141,26,288,184,64 

ZT 978 RETURN 

MR 988 REM MENU 

KG 998 GRAPHICS 2*16 : POSITION 1,5:? »6 ; " 

«a*s MENU 
QP 1800 FOR D = l TO 500.NEXT D 

VB 1010 GRAPHICS 0:POKE 752,l:POKE 710,21 

0 

KZ 1020 POSITION 0,8:? " MENU 



2 . . DISKETTE" 

MH 1300 GET »1,K:IF K<49 8 R K>58 THEN 138 
O 

OS 1310 POKE 752,1 

FN 1320 ON K-48 GOTO 1338,1378 

JH 1338 ? :? :? "insert and queue tape" 

LC 1340 ? "Press ■QHHE2B , type ■QaameimBl" 

HJ 1350 GET ««1.K 

ME 1360 OPEN »2 , 4 , 128 , "C : " : GOTO 1428 

MR 1378 ? :? :? "insert diskette and pres 

GU 1388 POKE 764,255 

GC 1390 IF PEEKC764J<>12 THEN 1390 

FZ 1400 POKE 764,255 

CH 1410 OPEN »2 , 4 , O , "D : MEAVING" 

DK 1420 ? :? :? :? " 



NL 
AN 

KZ 
KF 
KI 
II 
MN 

IN 

HY 
N J 
ZV 
HD 

PS 

ZO 
IM 



HO 
KK 
RN 



LG 

EV 
LQ 

UI 
MK 

AV 
BZ 
RM 



1030 ? " 

1040 ? " 

1050 ? " 

1060 ? " 

1070 ? :? 



1 CREATE NEW MEAVING* 

2 SAVE MEAVING" 

3 LOAD OLD MEAVING" 

4 LEAVE PROGRAM" 

Se lection ?" 



1000 CLOSE »i:OPEN «1,4,0,"K:" 

1090 GET «1,K:IF K<49 OR K>52 THEN 101 

0 

1100 A=K-48 

1118 ON A GOSUB 8 8,1138,1288,818 

1128 GOTO 1010 

1130 REM SAVE PATTERN 

1140 ? :? :? " Saue to: 1. .CASSETTE 

2 . . DISKETTE" 

1150 GET «1.K:IF K<49 OR K>50 THEN 114 
0 

1160 ON K-48 GOTO 1170,1200 

1170 ? :? "Place tape in recorder":? " 

press RECORD and PLAY":? "Then type WK3 

nomcicM" 

1180 GET »l,K 

1190 OPEN «2 , 8 . 128 , "C : " : GOTO 1210 
1200 ? :? :? "insert diskette and pres 
S ■QHOODHM " : GET «1,K:0PEN »2,8,8,"D: ME 
AVING" 

1218 ? :? :? it M ■BcatDDdHBiGaraaaataciNi " 

1220 ADHI=INT t ADX/256) : A D L O = A D K - A D H 1*2 
56 

1230 M0DE=PEEKC07J 

1240 IO=864:P0KE 10+2, 11: POKE 10*4, ADL 
OrPOKE 10+5, ADHI 

1250 POKE IO+8,4:POKE IO+9,30 

1260 JNK=USR CADR C"hhhE3LVfS"3 ,32) :CLOSE 

t»2 

1270 RETURN 

1200 REM LOAD OLD PATTERN 

1290 ? :? :? "Load fron: 1- -CASSETTE 



AN 1430 GOSUB 938 

LQ 1440 ADHI = INT (ADH/256) : ADLO= ADX- ADHI*2 

56 

88 1458 I0=064:P0KE IO+2,7:POKE 10+4. ADLO 

:POKE IO+5,ADHI 
UP 1460 POKE I0+8,4:P0KE 10+9,30 
MR 1470 JNK = USR CADR C " h ti h£3L VE" ) , 32) : CLOSE 

»2 

VK 1488 POKE 7 1 2 . A S C C ME A V S C 7 6 8 1 . 7 6 8 1 ) ) 

IE 1498 FOR K=788 TO 710:POKE K.ASCCMEAV5 

CH+6974 . H+6974) ) : NEXT K : POKE 559,0 
MT 1500 LOD=l:POP :GOTO 90 
ET 1510 REM ERASE MEAVING AND RESET 
PU 1520 ? "* ERASING OLD PATTERN" 

IT 1530 FOR U = l TO 40 : CLS CU , U) ="e" : CL1S CU 

,U)="o":NEHT U 
CH 1540 SBS=" ":SB1S=" ":CRS=" " 
BM 1558 K=l: Y=8:ET=4 
DM 1560 FOR R=l TO 15:X=1 
LR 1570 FOR 1=1 TO H 
OB 1588 SBS=CLSCI,I) 
TM 1598 CL=ASC CSBS) -64 

KF 1688 FOR H = H TO K + 1:S0UND 0. RND Cl)*+255 
,10,8:C0L0R C L *. PLOT H , V : DR AMTO X » E T : NE 
HT K 

VB 1610 SOUND O,0,0,O:NEKT I 
PH 1620 H=l : V=ET+1 : ET=V+4 
LH 1630 FOR 1=1 TO H 
MC 1640 SB5=CL15 CI, I) 
JF 1650 CL1=ASC CSBS) -64 

FM 1660 FOR H=H TO H+l:SOUND 1,RMD(1)*255 
,10,0:C0L0R CLl:PLOT K , V : DR AMT O K » ET > N 
EHT X 

LR 1670 SOUND 1,0,O,0:NEXT I : Y = E T ♦ 1 : E T = V + 
4 

JU 1688 NEXT R 
BM 1698 RETURN 



type-in music construction software 



THE MUSICIAN 



Article on page 37. 



LISTING 1 



Don't type the 
TYPO II Codes! 



8F 18 REM THE MUSICIAN 

XQ 28 REM BY ANGELA G I A MB R A 

FM 38 REM (c) 1985, ANTIC PUBLISHING 

RB 48 SI=l:POKE 65,0:G0T0 2060 

DC 50 IF PEEKC20J <TEMPO THEN 50 

EM 60 A=PEEK C764) : RETURN 

YX 70 FOR 1=1 TO SI-1 : PITCH=ASC CSONG5 CI , I 
) J 

YC 00 IF PITCH=255 THEN POKE Cl,ASCCSONGS 

CI + 1.I + U3 : POKE C2.ASCCSONGSCI + 2, 1 + 2)3 

JU 90 IF PITCH=255 THEN POKE C3.ASCCS0NGS 
CI+3 , 1+3) J: 1=1+3 : NEXT l:GOTO 298 

LH 100 IF PITCH=254 THEN POKE C1,0:POKE C 
2,0:POKE C3.8:NEXT I 
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JT 118 IF PITCH>128 THEN S U S T = 1 : P I T C H = P I T 

CH-128:IF PITCH=125 THEN PITCH=128 
QM 128 POKE CO, PITCH ".POKE 28,8:IF PITCH = 8 
THEN 178 

RJ 138 IF X>15 THEN X = 5 : G = 1 : G O S U B 218 

HG 148 YPOS= ASC (YPBS CI , I) ) : IF YPOS>131 AN 

D YP0S<14 7 THEN YPOS=YPOS-128 : POSITION 
K.YPOS:? »6 ; : X=X+1 
QS ISO IF YPOS>203 AND YP0S<219 THEN YPOS 

= YPOS-200 : POSIT ION X,YPOS:? »6;**b":X-X 

♦1 

XR 160 POSITION X,YPOS:? «6; NTS : POSITION 
N,YPOS-l:? «6 I" : POSITION X.YPOS-2:? 

continued on next page 
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«6 ; " P 1 : H = K + 2 
DG 170 TEMPO=ftSC(T5tI.I) J*TEMP:G05UB 50:1 
F 5U5T OR PITCH=0 THEM 5UST=0:NEKT I:G 
OTO 200 

UT 100 IF A<>255 THEN POKE 764, 255: IF 0=2 

0 THEM 1=51 

KM 190 POKE 5376O.0:NEKT I 

L5 200 G = 0:POKE C1,0:POKE C2,0:POKE C3,0: 

POKE C0 , 0 : SUST=0 : RETURN 
GK 210 POKE 53277 , O : NTS="«" : H=3 : SETCOLOR 

4,O,0:C=1:SETCOLOR 0,7,4 
TU 220 5ET COLOR 1 , 1 , 4 : 5 E T C O L O R 2,54,4:GRA 

PHIC5 17-POKE 559,46:P0KE 53277,3 
PA 230 POKE 16,112:POKE 53774,112 
TR 240 POKE 756 , CHRBASE/256 : POSITION 7,0: 

? »6 ; "p l ay 

5K 250 POKE 53761 , 170 : POKE 53763 , 168 : POKE 
53765, 168 '.POKE 53767 . 168 : POKE 53768,0 

:POKE 53775, 3:IF G THEN RETURN 
FY 260 POKE 53254 , 60 : POKE 53255 , 188 : POKE 

53260, 0:POKE 54279, PHBftSE : FOR L=704 TO 
707 .POKE L, 68 : MEHT L 
LN 270 FOR L=53256 TO 53259:P0KE L , 3 : NEKT 
l_:POKE 53248 , 60 : POKE 53249 , 92 : POKE 53 

250,124:POKE 53251 . 156 : GOTO 70 
J A 280 INPUT »1 , TEMP : INPUT «1,SI 
LV 290 FOR 1=1 TO SIrlNPUT «1 , C H A 5 : 5 O N G S C 

I,I)=CHAS:NEHT I 
OE 300 FOR 1=1 TO SlrlNPUT «1 , CHA5 : TS (I » I 

J=CHAS:NEHT I: FOR 1 = 1 TO SI 
OS 310 INPUT «1 , CHAS : YPOS (I , I) =CHAS : NEKT 

1 : SI = SI + 1 : POKE 53762 , 8 : POKE 53764, 0 : PO 
KE 53768 , O : RET URN 

RL 320 POSITION 4,22:? »6 ; " ";DE5C5;" 

":NTFLAG=0:RETURN 
IL 330 IF MOVEFLAG THEN POSITION HPOS-l.Y 

P O S : GO T O 360 
KS 340 IF SUST THEN POSITION HPOS,YPOS*2: 

? «6 ; " M 

YO 350 POSITION KPOS, YPOS-2 : ? «6 ; " ":POSI 

TION HPOS,YPOS 
UZ 360 IF SHARPFLAT= 3 THEN ? »6 ; 
FP 370 IF SHARPFLAT = 1 THEN ? »6 ; 
AD 380 IF SHARPFLAT=2 THEN ? «6; ,, b«« 
00 390 IF MOVEFLAG THEN RETURN 
FS 400 M0VEFLAG=1 : HPOS=HPOS*l : RETURN 
UP 410 IF SHARPFLAT THEN GOSUB 330 
LI 420 POSITION KPOS, YPOS* 1 : ? «6 ; " ":POSI 

TIOM KP0S,YP0S-3 
MP 430 ? «6;" ":POSITION K P O S ♦ 1 , Y P O S ♦ 1 : ? 

«6;" ":POSITION K P O S ♦ 1 , Y P O S - 3 : ? «6 ; ■• »• 

DO 440 IF SHARPFLAT THEN POSITION KPOS-1, 
YPOS + l:? ttS; $t "^POSITION KPOS-1 , YPOS- 1 
: ? »6 ; " M 

ZG 450 IF SUST THEN POSITION KPOS,YPOS+3: 
? w6 ; " »■ 

UF 460 POSITION KPOS, YPOS:? «6;NT5;" 

ZC 470 IF NTTYPEOl AND RF L A G = 0 THEN POSI 

TION KPOS , YPOS-1 : ? »6;5TEM1$;" POSIT 

ION KPOS , YPOS-2 : ? »6;5TEM2S;" " 
YG 480 IF NTTYPE=8 OR NTTYPE=6 OR NTTYPE= 

3 THEN POSITION K P O S ♦ 1 , Y P O S - 2 : ? «6;STE 

MFLAGS 

FK 490 IF NTTYPE=6 OR NTTYPE=3 THEN POSIT 
ION KPOS + 1 , YPOS-1 : ? **6 ; STEMFLAGS 

OL 500 IF NTTYPE=3 THEN POSITION HP0S+1,Y 
POS:? «6 ; STEMFLAGS 

MC 510 IF D0T=1 THEN POSITION KP0S+1,YP0S 
: ? »6 ; "" " 

LH 520 IF SUST THEN POSITION KPOS,YPOS+2: 
? «6;"s«- 

FA 530 IF RFLAG OR NTTYPE=1 THEN POSITION 
KPOS , YPOS-1 : ? we;" ":POSITIOH KPOS,YP 
OS-2:? tts: 1 ' 
NI 540 GOTO 320 
OG 550 REM POLL JOYSTICK 

GI 560 A=STICK (0 ) : IF A=15 OR RFLAG THEN 5 
90 

OD 570 IF A=14 THEN IF YPOS>4 THEN YPOS=Y 

POS-l:GOSUB 410:GOTO 550 
YQ 580 IF A=13 THEN IF YP0S<18 THEN YPOS= 

YPOS+l:GOSUB 410:GOTO 550 
KM 590 A=PEEK (764) : IF A<>255 THEN POKE 76 

4,255: GOTO 620 
RM 600 IF STRIG(O)=0 THEN 1020 
PE 610 GOTO 550 



01 620 IF A=42 THEN POSITION 4,22:? «6;"e 
x»t y or n**:GOSUB 2490:GOTO 550 

EF 630 IF A=46 THEN N T 5 = C HR 5 C 2 3 9 ) : N T T Y P E = 
l:DESCS="whole":RFLAG=0:GOTO 900 

UH 640 IF A = 8 THEN SOHGS (51 , SI) =CHRS (254) 
: SI = 51*1: POSITION 4,22:? »6;"chord off 
":GOTO 550 

FI 650 IF A=18 THEN 1780 

MU 660 IF A=45 THEN GOSUB 1670:GOTO 550 
IV 670 IF 0=63 THEN GOSUB 1900:GOTO 1970 
JA 680 IF A=0 THEN GOSUB 19O0:GOTO 2010 
FE 690 IF A = 57 THEN NT$ = CHR5 (239) :NTTYPE = 

2:DESCS=" half : R F L A G = 0 : GOTO 070 
NE 700 IF A=40 THEN 940 

JN 710 IF A=47 THEN HT5=CHR5 (148) :HTTYPE= 

4 :DESC$ = "«iuarter":RFLftG = e:GOTO 870 
BO 720 IF A=53 THEN N T T Y P E = 8 : S T E MF L A G $ = C H 

RS(224) :OESCS="ei9hth»:EIGHTFLAG=l:RFL 

AG=0 : MTS=CHRS (1 40) : GOTO 900 
GN 730 IF A=27 THEN N T T Y P E = 6 : S T E MF L A G 5 = C H 

RS (224) : DESC5 = "5ixteenth" : RFL AG = 0 : EIGH 

TFLAG = 1 : NTS = CHR$ (148) : GOTO 900 
TQ 740 IF 0=26 THEN N T T Y P E = 3 : S T E MF L A G 5 = C H 

R$(224) :OESC$= M thirty sec" : RFLAG=0 : EIG 

HTFLAG = 1 : MTS = CHRS (148) : GOTO 980 
CD 750 IF A=34 THEN DOT=l:GOTO 900 
GK 760 IF A=7 THEN GOSUB 1270:GOTO 550 
GB 770 IF A=62 THEN SUST=l:GOTO 900 
JK 780 IF A=54 THEN SI=l:FOR 1=1 TO 3:SOU 

ND 0 , 15 , 10 , 10 : FOR D=l TO 8 : NEKT D:SOUN 

D 0,0, 0,0: NEKT I 
UF 790 POSITION 4,22:? »6;"song cleared 1 *: 

GOTO O10 
PB 800 GOTO 020 

KK 810 FOR 1=1 TO 30O:NEKT I : F I R S T T I ME = 0 : 
GOTO 2120 

MF 820 IF A=21 THEN SHARPFLAT=2 : GOTO 900 
NM 030 IF A=90 THEN S H A R P F L A T = 1 : G O T O 900 
KO 840 IF 0=10 THEN GOSUB 2 1 0 : F I R S T T I ME = 0 

:GOTO 2120 
NC O50 IF A=7 THEN GOSUB 550:GOTO 900 
PR 060 IF A=35 THEN S H A R P F L A T = 3 : G O T O 900 
OK 070 IF EIGHTFLAG THEN POSITION KPOS+1, 

YPOS-2:? »6;" ":POSITION K P O S + 1 , Y P O S - 1 

:? »6; M M 

CN 000 IF NOT DOT THEN POSITION HPOS+1, Y 

POS:? «6;" •« 
HE 890 GOSUB 410:GOTO 550 

LQ 900 IF NTTYPEOl THEN GOSUB 410:G0T0 5 
50 

FN 910 POSITION KPOS, YPOS-2:? »6," " :POSI 

TION KPOS, YPOS-1 : ? «6 ; ":IF EIGHTFLAG 
THEN POSITION KPOS + 1 , YPOS -2 : ? «6 ; " 
DQ 920 IF EIGHTFLAG THEN POSITION KPOS+1, 

YPOS-l:? »6;'» ":IF NOT DOT THEN POSIT 

ION KPOS + 1 , YPOS : ? »6 ; " 
GT 930 GOSUB 410:GOTO 550 
CS 940 IF NTTYPE=4 THEN MT5="k" 
FH 950 IF NTTYPE=8 THEN MT$="J" : NTTYPE=9 
ND 960 IF NTTYPE = 2 THEN HT$ = 'V 
MC 970 RFLAG=l:lF YP0S=12 THEN GOSUB 410: 

GOTO 550 
UI 900 IF YP0S>11 THEN 1010 

FN 990 IF YP0S<11 THEN FOR YPOS=YPOS TO 1 

1 STEP lrGOSUB 410:NEKT YPOS 
QS 1000 GOTO 550 

KU 1010 FOR YPOS=YPOS TO 13 STEP -lrGOSUB 

410:NEKT YPOS:GOTO 550 
OC 1020 NK = (YPOS = 4) **4 + (YPOS = 5) *7 + (YPOS = 6) 

*13*(YP05=7)*19*(YP0S=8)*25+(YP05=9)»2 

8+(YPOS=10)*34+(YPOS=ll)»48 
LI 1030 NK = NK+ (YP0S = 12) *43+ (YP0S = 13) *49 + ( 

YPOS=14)~5 5+(YPOS=15)~61+(YPOS=16)~6 4+ 

(YP0S=17)*78+(YPBS=18)*76 
SE 1040 IF SHARPFLAT = 1 THEN N K = N K - 3 
00 1050 IF SHARPFLAT=2 THEN NK=NK+3 
TH 1060 IF SHARPFLAT=3 THEN SHARPFLAT=0 
OM 1070 IF RFLAG THEN SOUND 8, 18, 8, 10 : GOT 

O 1090 

NM 1000 SOUND O, UAL (SCALES (NK, NK + 2) ) , 10, 1 
O 

MM 1090 FOR 1=1 TO 5 0 : NEKT I:SOUND 0,0,0, 
0 : TEMPO=100 : IF DOT THEN T S ( S I + 1 , S I ♦ 1 ) = 

BR 1100 TEMPO=128»(NTTYPE=l)+68*(HTTYPE=2 
)+3 0~(NTTYPE=4)+15~(NTTYPE=8)+7~(NTTYP 
E = 6)+3**(NTTYPE = 3) 
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DU 1118 IF DOT THEN TEMPO=TEMPO*l . 5 

BB 1128 PITCH=VAL(5CflLES(MK, MK*2)) :IF 5U5 

T THEM PITCH=PITCH+i28 : IF PITCH=256 TH 

EN PITCH=253 
AJ 1138 SOMGS(5I)=CHR$(PITCH) :T5(5I,5I)=C 

HR5 (TEMPO) 

LV 1148 IF RFLftG THEN 50HG$ (SI) =CHR$ (8) :D 
OT = 8:SU5T = 8:DESC$= u «luarter":HTTYPE = 4 

TC 1158 YPO$(5I,SI)=CHRS(YP05) :IF 5HARPFL 
AT = 1 THEN YPOS (51 , SI) =CHR5 (flSC (YPOS (51 
,51)) +128) 

Q5 1168 IF 5HARPFLAT = 2 THEN YPOS (51 , 51) =C 

HR$(A5C(YP05(5I»5D) + 288) 
BU 1170 REM MAKE NEW NOTE 

JK 1188 51=51+1 : POSITION 3,©:IF NT5^CHR5( 

148) THEN MT5 = ,, »" 
DI 1198 IF NT5=CHRS(239) THEN RT$-"o" 

NO 1288 STEM1$ = " I" : STEM2S = M l H : STEMFLAG$ = " 
♦ ••:IF FIRSTTI ME = 8 THEN F I R S T T I ME = 1 : GO T 
O 1228 

HK 1218 G05UB 4 1 0 : T R ft P 48888:IF RFLAG THE 

N NTS="»" : RFLAG=0 
ED 1228 M0UEFLAG=8 : SVEKPOS=KPOS : KPOS=KPOS 

+2:IF HPOS>15 THEN S U B F L = 1 : H P O 5 = 3 : G O S U 

B 2130 

MN 1238 IF SVEKP0S=1 THEN SVEKP0S=3 

KN 1248 STEM1S = CHRS (138) : STEM2S=CHRS (138) 

: STEHFL8G$ = CHRS (224) : IF HT5 = ,, « n THEN N 

T5 = CHR5 (148) 
BR 1258 IF HT5 = "o" THEN HT5 = CHRS (239) 
PU 1268 D0T=8 : SUST=8 : GOSUB 418:G0T0 558 
AL 1278 POSITION 2,22:? »6 ; enter chor 

d ":POSITION 2,23:? »6;"then press re 

turn" 

DT 1288 FOR 1=1 TO 3:SOUND 8, 15, IB. 18 : FOR 

D=l TO 6:NEKT D : SOUND 8,8,8,8:NEXT I 
OH 1298 CH$=" ":OPEN »1 , 4 , 8 , " K : " : P O KE 

782,8:CI=l:KP=KP0S-l 
ID 1388 A=PEEK (764) : IF A=255 THEN 1388 
GR 1318 GET »1,AP0KE 764,255:IF A=155 TH 

EN 1478 
ZM 1328 IF CI=6 THEN 1388 
CV 1338 CHS (CI , CI) = C H R S (A) 

LD 1348 IF CHRS (A) = ,, 6" THEN CHS (CI , CI) ="l 
":SIKTH=1 

PU 1358 IF CHRS (A) ="7 M THEN CHS (CI . CI) ="t 

V : SEVENTH=1 
TC 1368 CHAS = CHS (CI , CI) 

MU 1378 IF CHA$= H +" THEN CHAS=CHRS(19):G0 

0DCHAR=1 
MT 1388 IF CHA$=' 

ODCHAR = 1 
EM 1390 IF CHAS=* 

0DCHAR=1 

AN 1408 IF CHA$ = "**" THEN CLOSE «1:P05ITI0 

N KPOS - 1,28:? »6 ; ' 

GOTO 1638 
HR 1418 IF C H A S = ' 

c •« OR CHAS= M d« 
OR CHAS = ,, 3* 
YT 1428 IF (CHAS=' 

ONDPASS THEN 1468 
PJ 1438 IF (GOODCHAR OR SIXTH OR SEVENTH) 

AND 5EC0NDP ASS THEN 1468 
OS 1448 GOTO 1388 
LP 1458 5EC0NDPA55=1 

BB 1468 POSITION HP, 28:? «6 ; CH AS : GOODCHAR 
=8 : CI=CI+1 : KP=KP+1 : GOTO 1388 

MU 1478 CLOSE »1 : POKE 7 8 2 , 6 4 : 5 E C O N D P A S 5 = 8 
: CHAS = CHS (1 , 1) 

NI 1488 MH = 112*(CHAS = ,, C")+186*(CHAS = ,, d") + 
188»(CHftS = ,, e")+97*(CHftS = ,, f")+91*(CHflS = 
"g")+85*(CHfl$ = "a") +79**(CHAS = "b") 

LV 1498 IF CI=2 THEN O S 1 = 1 2 : O 5 2 = 2 1 : G O T O 1 
618 

CV 1588 0Sl=12:052=2i:CI=2:IF CHS(2,2)="« 

THEN NK=NH-3:CI=3 
TK 1518 IF CHS (2, 2) =»b» THEN NH = NH + 3:CI = 3 



THEN CHAS = CHR$ ( 18) : GO 



THEN CHAS=CHRS (16) : GO 



:SEC0NDPASS=8: 



l" OR CHflS=" 
OR CHA$="e" 
THEN 1458 

OR CHAS= 



b" OR CHAS=" 
OR CHAS="f" 



AND SEC 



MM 


1528 


IF 


SIHTH THEN 


SIHTH=8 : 052= 


27 


OH 


1S38 


IF 


SEVENTH THEN SEVENTH =8 : 


OS2=38 


OZ 


1548 


IF 


CHS (CI , CI) 


= •■ + ■• 


THEN 052 


= 24 


TK 


1558 


IF 


CHS (CI , CI) 




THEN OS1 


=9 : OS2= 




18 












VP 


1560 


IF 


CHS (CI , CI) 




THEN 0S1 


=12 : 0S2 




= 18 












RK 


1578 


IF 


CHS (CI , CI) 




THEN IF 


CHS (CI + 
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1,CI+1)=" ■■ THEN 051 = 9:052 = 21 
PA 1588 IF CHS (CI, CI) = "W M THEN IF CHS(CI + 

1 , CI+2) ="a j» THEN 051=12:052=33 
BM 1598 IF CHS (CI , CI) =••«" THEN IF CHS(CI + 

1 , CI + 1) ="-r" THEN OS1 = 9:OS2 = 30 
OE 1600 IF CHS (CI , CI) = ••«•• THEN IF CHS(CI + 

1, CI + 1) ="l ■• THEN 051 = 9:OS2 = 27 
10 1610 SONGS (51 , 51) =CHRS (255) : SONGS (51 + 1 

,SI+l)=CHRS(VAL(SCALES(NH,NK+2))) 
GT 1620 SONGS (51 + 2 , 51 + 2) =CHRS (VAL (SCALES ( 

NH-OSl,NK-OSl+2))):SONGS(SI+3,SI+3)=CH 

RS (VAL (SCALES (NK-Q52, NK-052 + 2) ) ) 
BR 1630 SIHTH=0 : SEVENTH=8 : 51=51+4 : POSITIO 

N 2,22:? tt6;" ":POSITI 

ON 2,23:? «6 ; ■• 
YM 1648 POSITION 7,22:? «6;DESCS:IF CHAS= 

THEN RETURN 
LR 1658 SOUND 8 , AS C ( S O N G S ( S I - 3 , 5 1 - 3 ) ) , 1 8 , 

10 : SOUND 1,ASC(S0NGS(SI-2,SI-2)),18,1B 

: SOUND 2,ASC(S0NGS(SI-1,SI-D) ,18,18 
GT 1668 FOR 1=1 TO 28 : NEHT I : S8UND 8,8,8, 

0:SOUND 1 , 8 , 8 , 8 : SOUND 2,8.8,8: RETURN 
YY 1678 FOR 1=1 TO 3 : SOUND 8 , 1 5 , 1 8 , 1 8 : F OR 

Q=l TO 6:NEHT Q : SOUND 8,8,8,8:NEKT I 
CC 1688 POSITION 5,28:? «6;"changc tenpo" 

:POSITIOM 5,22:? «6 ; ■• 
MH 1698 POSITION 8,22:? »6; CHRS (243) ; CHRS 

(236) ;CHRS(239) ;CHRS(247) ;CHRS(229) ; CH 

RS(242) :TEMP0=8.25 
LU 1788 A=STICK(8) 

KV 1718 IF A=14 THEN POSITION 8,22:? «6 ; C 
MRS (238) ; CHRS (225) ;CHRS(243) , CHRS(244) 
;CHRS(229) ,'CHRS(242) 

KO 1728 TEMPO=-8 . 25 : GOTO 1788 

KS 1738 IF A=13 THEN 1698 

MR 1748 IF STRIG(8)=8 THEN 1768 

OK 1758 GOTO 1788 

WD 1768 TEMP=TEMP+TEMPO : FOR 1=1 TO 3 : 50UN 
D 8 , 15 , 18 , 18 : FOR 0=1 TO 6 : NEHT Q : SOUND 
8,8,8,8: NEHT I 
IJ 1778 POSITION 5,28:? »6 ; " 

••:POSITION 4,22:? «6 ; " ";DESCS;" 
": RETURN 

NF 1788 SI=5I-l:F0R 1=1 TO 3 : SOUND 8,15,1 

8,18:F0R D=l TO 8 : NEHT D 
YO 1798 SOUND 8,8,8,8:NEHT I:P05ITI0N 7,2 

2:? n6;"cancelled" 
RB 1888 POSITION KPOS , YPOS-2 : ? t*6 ; " : PO 

SITION KPOS , YPOS-1 : ? »6 ,* " '^POSITION 

KPOS, YPOS:? «6;" 
BM 1818 IF SHARPFLAT THEN POSITION KPOS-1 

,YPOS:? «6;" M 
IB 1828 IF 5UST THEN POSITION KP0S,YP05+2 

:? «6;" " 

QQ 1838 KPOS = 5VEKPOS:IF SKI THEN SI = 1 
UD 1848 IF SKI THEN 558 

SG 1858 IF A5C (SONGS (51-3 , SI-3) ) =255 THEN 
SI=SI-4 : POSITION 3,22:? »6; H chord can 
cell ed" 

FL 1868 FOR 1=1 TO 188 : NEKT l:POSITION 3, 

22 : ? «6 ; " 
5D 1878 GOTO 558 

RK 1888 IF TS(SI,SI)= ,, 4" 6R T S ( S I , 5 1 ) = " 6 
OR TS (SI , 51) ="8" OR T S ( 5 I , 5 1 ) = " 3 " THE 
N STEHFLflG$= n \" 
YG 1898 G05UB 328 

LJ 1988 GRAPHICS 18 : POKE 53277, 8 : POKE 559 
,34:? »6;" ENTER SONG N A ME 11 

EF 1918 OPEN »1, 4, 8, "K" : F I L E N A ME S = D : " : 1= 
3 : ? »6 : ? »6 : ? »6 ; " M 3 

DG 1928 POKE 16,112:P0KE 53774,112 

OE 1938 GET «1,CH:IF CH=155 THEN CLOSE «1 
: RETURN 

CY 1948 IF CH=126 THEN POSITION (PEEK(85) 
-1) , (PEEK(84) ) : ? «6 ; " "^POSITION (PEE 
K(85)-l) , (PEEK(84)) : 1=1— 1 : GOTO 1938 

FN 1958 IF CHRS(CH) < M A" 8R CHRS (CH) > M Z" T 
HEN 1938 

MR 1968 FILENAMES (I) =CHRS (CH) : ? «6;CHRS(C 

H+128) ;: 1=1+1 : GOTO 1938 
FM 1978 IF LEN (FILENAMES) =2 THEN OPEN «1 , 

8 , 8 , "C : " : FOR 1=1 TO 128:PUT »1,CH:NEKT 
l:GOTO 1998 
GU 1988 OPEN «1, 8, 8, FILENAMES 
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ZP 1999 ? «l;TEHP:? «l;5I-l:FOR 1=1 TO 51 

-1 *. CHA3 = S0NGS CI1 : ? Ml ; CHftS : HEHT l:FOR 

1=1 TO 5I-l:CHflS=T5(IJ 
IK 2896 ? **1 ; CHAS : NEXT I:FOR 1 = 1 TO SI-1: 

CHfl$=YPOS(I) :? »1 ; CHAS : NEXT l:CL05E «1 

:FIRSTTIME=9:G0T0 2120 
IT 2919 FIRST TIME=8 : TRAP 2949 

BO 2929 IF LEN (FILENAMES] -2 THEN OPEN «1 , 
4,8 4 "C: n :FOR 1=1 TO 12 0 : GET »1,CH:NEXT 
I: GOTO 2 9 59 
UT 2939 OPEN «1 , 4 , 8 , FILENAMES : GOTO 2058 
NM 2848 CLOSE «1 :GOTO 2128 

AV 2858 51 = 1 : NTS = ,, »" : GOSUB 288:CL0SE »1 : G 

OSUB 218 : FIRSTTIME=B : GOTO 2128 
L K 2868 REM INITIALIZE SCREEN 

IQ 2878 DIM NTS (1) , 5TEM15 (1) , 5TEM2S (1) , 50 

NGSCieeO) , T5 C 1880 ) , YPOSC1B00) ,5NRME$(1 

21 , FILENAMES (12) 
XF 2888 DIM SCALES Cll?) , 5TEMFLAG5 (1) ,DESC 

SC15J :DE5CS= M quartcr":DIM CHS (51 ,CHA5( 

1) 

PD 2898 SCALES^ -- 11 8 2 8 8 2 9 8 3 1 8 3 3 8 3 5 8 5 / 8 4 8 8 4 2 8 
45847858853857868864868872876881885891 
896182188114121128136144153162173182" 

YM 2188 SCALES (188 J ="19328421 723824 3255" : 
GOSUB 2288:TEMP=1 

W 2118 C9=53769 : Cl=53762 : C2=53764 : C3=537 
66 

GR 2128 NTS = "«" : STEM1S = " I" : STEM2S = " I" : NTT 
VPE = 4:DE5C$ = "«luarter": YP05=12:HP05 = 1 

IP 2139 POKE 53277, 9 : GRAPHICS 17:SETC0L0R 
8.8,8:POKE 756 , INT ( CHRBA5E/256) :POSIT 
ION 3,9:? «6; "the Musician" 

CX 2149 POKE 16,112:P0KE 53774,112 

MM 2159 POSITION 7,22:? «6; DE5CS : POKE 559 
,46:P0KE 53277, 3:P0KE 53254 , 68 : POKE 53 
255,188:P0KE 53269, 9 : POKE 623,4 

CZ 2169 FOR I=CHRBASE TO CHRBA5E+7 : POKE I 
,B:NEXT l:FOR L=794 TO 707:P0KE L,128: 
NEXT L 

KY 2178 FOR L=53256 TO 53259:P0KE L,3:NEX 
T L-POKE 53248 , 68 : POKE 53249 , 92 : POKE 5 
3258 , 124 : POKE 53251,156 

GE 2188 IF SUBFL THEN SUBFL=8 : RETURN 

SR 2198 GOTO 1198 

PR 2288 GRAPHICS 1 7 : P = 5 7 8 5 6 : P MB A S E = I N T ( C ( 
PEEK(186)-12)*256)/1824)*1824 

SD 2218 CHRBASE=INT C ( t (PEEK (186) -16) »256) 
/1824-1) ) *1824 

CT 2228 POKE 16,112:P0KE 53774,112 

RB 2238 FOR 1=1 TO 15:P05ITI0N 3,1:? »6 ; " 
QCaS CfflaHaHBt3":NEKT I:? »6 : ? »6 : ? «6 ; " 
r eu . 1 . 8" 

WS 2248 DIM ESC 76 3: FOR 1 = 1 TO 76: READ A : E 

S (I , I) =CHRS (A) : NEXT I 
UN 2258 DATA 18 4,184,133,193,184,133,192, 



184,133,197,184,133 
OH 2268 DATA 19 6,169,226,133,195,169,8,13 

3,194,168,8,162,8,177,194,145 
YF 2278 DATA 19 2,288,192,8,288,247,232,22 

4,5,248,18,238,193,238 
01 2288 DATA 19 5,168,8,169,8,248,232,162, 

8,168,8,169,8,145,196,288 
1C 2298 DATA 19 2,8,288,249,232,224,5,248, 

8,168,8,238,197,169,8,248,236,96 
IE 2388 X = USR ( ADR (ES3 , CHRBASE , PMBA5E) : P = 5 

7344+176:F0R I = C H R B A S E ♦ 1 7 6 TO CHRBASE+ 

183:P0KE I , P E E K ( P ) : P = P ♦ 1 : N E X T I 
VH 2318 P=57344+184:F0R I -CHRBASE* 184 TO 

CHRBA5EU91:POKE I , PEEK CP J : P = P + 1 : NEXT 

I 

VX 2320 P = 57344 *24 : FOR I = CHRBA5E + 128 TO C 

HRBA5E+ 135 : POKE I , P E E K ( P J : P = P ♦ 1 : N E X T I 

: P=57344*112 
FI 2338 FOR I = CHRBASE>96 TO CHRBA5E + 183 : P 

OKE I , PEEK (P) : P = P + 1 : NEXT I : P = 5 7 3 4 4 ♦ 4 8 8 
OF 2349 FOR I = C H R B A S E ♦ 2 5 6 TO CHRBASE+263: 

POKE I , PEEK CP) : P = P + 1 : NEXT I 
CB 2359 FOR I = CHRBASE + 88 TO CHRBA5E + 87 : RE 

AD A:POKE I,A:NEXT l:FOR I=CHRBA5E+64 

TO CHRBA5E+71 : READ A : POKE I,A:NEXT I 
UA 2368 FOR I=CHRBASE+48 TO CHRBASE+55 : RE 

AD A : POKE I,A:NEXT I 
NM 2378 S T A R T = P MB A 5 E : P MB A 5 E = P MB A 5 E/2 5 6 
MP 2389 FOR I=ST ART+384+49 TO 5TART+384+8 

l:POKE I,248:NEXT I 
CD 2398 FOR I=5TART+512+49 TO START+648-4 

1 STEP 8-.P0KE I,255:F0R Z=I + 1 TO X + 7 : P 

OKE Z,8:NEXT Z:NEXT I 
RP 2488 FOR I = 5 T AR T ♦ 6 4 8 * 4 9 TO START+768-4 

1 STEP 8:P0KE I,255:F0R Z=I*1 TO I*7tP 

OKE Z,8:NEXT Z:NEXT I 
CP 2418 FOR I=STftRT+768*49 TO 5TART+896-4 

1 STEP 8:P0KE I,255:F0R Z=I+1 TO I*7:P 

OKE Z,8:NEXT Z:NEXT I 
OX 2428 FOR I=START*896*49 TO START+1824- 

41 STEP 8.-P0KE I,255:F0R Z=I + 1 TO 1*7: 

POKE Z,8:NEXT Z:NEXT I 
SX 2438 POKE 15 . INT (CHRB A5E/256) : A = CHRB AS 

E - (INT (CHRBA5E/256) *256) :POKE 14, A 
YO 2449 POKE 54279 , PMBASE : POKE 559,46:POK 

E 53277,3 
UT 2459 POKE 53769 , 9 : RETURN 
AE 2468 DATA 4 8,24,28,48,24,28,48,24 
OT 2478 DATA 48,62,4,8,8,16,16,32 
SK 2488 DATA 8,36,44,52,36,44,52,4 
XO 2498 A=PEEK (7643 : IF A=255 THEN 2498 
HE 2599 POKE 764,255:IF A<>43 THEN POSITI 

ON 4,22:? «6 ; » " : RETURN 

UN 2518 FOR 1=1 TO 29 : NEXT I 
YZ 2529 X=USR(584843 
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LISTING 1 



Don't type the 
TYPO II Codes! 



ZC 18 REM COLOR PALETTE 

TP 28 REM BY J6HN U. FELTON 

FU 38 REM (O 1985, ANTIC PUBLISHING 

JR 48 REM INITIAL COLORS 

HT 58 DATA 4 8 , 2 8 2 , 1 4 8 , 7 8 

PE 68 DATA 5 8,82,252.114,172,244,198,8 
BB 78 REM DISPLAY LIST 

CW 88 DATA 112,112,64,69,8,8,133,8,136,8, 
5,133,8,138,8,5,133,8,2,8,2,66,8,8,2,2 
,2,2,2,66,8,8,65 
EK 98 REM DI5P- LIST INTERRUPTS 
TU 188 DATA 7 2,173,288,2,69,79,37,78,141, 



18,212,141,24,288,173,7,6,69,79,37,78, 
141, 23, 288, 169, 58, 141, 8, 2, 169, 6, 141 
GR 118 DATA 1,2,184,64 

QH 128 DATA 7 2,173,8,6,69,79,37,78,141,18 
,212,141,22,288,173,1,6,69,79,37,78,14 
1,23,288,173,2,6,69,79,37,78,141,24 

YS 138 DATA 2 8 8,173,3,6,69,79,37,78,141,2 
5,288,169,186,141,8,2,169,6,141,1,2,18 
4 , 64 

AS 148 DATA 7 2,173.288,2,69,79,37,78,141, 
18, 212, 141. 24, 288, 173, 7, 6, 69, 79, 37, 78, 
141, 23, 288, 169. 142. 141. 8, 2, 169, 6, 141 
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GZ 159 DATA 1,2,194,64 

QD 169 DATA 7 2,173,4,6,69,79,37,78,141,19 
,212,141,22,288,173,5,6,69,79,37,78,14 
1, 23, 288, 173, 6, 6, 69, 79, 37, 78, 141, 24 

HZ 178 DATA 2 8 8,169,188,141,9,2,169,6.141 
,1,2,194,64 

DK 188 DATA 7 2,173,288,2,69,79,37,78,141, 
18, 212, 141, 24, 298, 169, 224, 141, 9, 212, 17 
3,7,6,69,79,37,78,141,23,288,184,64 

QU 198 REM U/B INTERRUPT 

AL 289 DATA 16 9,14,141,9,2,169,6,141,1,2, 
76,95, 228 

BS 218 DATA 18 4,168,219,162,6,169,6,32,92 
, 228 ,96 

HG 228 REM SCROLL SUBROUTINE 

HK 238 DATA 18 4,184,141,8,8,184,141,8,8.9 
6 

MO 248 DATA GREY, GOLD, ORANGE, RED, PINK, U I O 
LET, PURPLE, BLUE, CYAN, LT BLUE, TURQUOISE 

KP 258 DATA B L UE - G R N , G R E E N , Y L L M- G R N , O R N G - 

GRN , LT ORANGE 
PF 268 DIM PMS C1824 ) , SCS (700) , C (12) , CRSS C 

10) , BLANK (18) , AS (28) , BLKS (10) , ROUTINES 

(18) 

UT 278 REM TITLE PAGE 

YQ 288 POKE 1 8 6 , P E E K ( 7 4 8 ) 

E A 298 GRAPHICS 8:SETC0L0R 3 , 5 , 6 : S E T C O L O R 

8,14,18:P0KE 718,8:P0KE 752,1 
PE 388 H = PEEK (568) +PEEK (561) **256 + 9 : POKE X 
,6:P0KE X + 1,6 

uc 318 position 4,4:? 1 1 aranransB^HOHHOEi 



•BY" 

•JOHN 14. 



FELTON' 



FA 328 POSITION 18,18:? 
GO 338 POSITION 13,12:? 
CN 348 REM INITIALIZE 

OK 358 RESTORE 188:F0R N=1558 TO 1778:REA 

D A:POKE N,A:NEXT N 
RP 368 POSITION 11,28:? "(BACK IN A MO ME N 

T) " 

EY 378 RESTORE 58:F0R N = l 

N)=A:NEKT N 
KJ 388 RESTORE 60 F0R N = 8 TO 

E 1536+N , A : NEXT N 
MI 398 SCS(1)=" ••:SCS(788): 



TO 12 : READ A : C ( 



7 : READ A : POK 



= SCS : SCS (2) =SCS 



YR 488 PMBASE=256* (PEEK (186) -8) 

MF 418 BSCH = INT (PMBASE/256-5) : BSCL = 8 

PO 428 FOR N=96 TO 288:P0KE PMBASE+N. PEEK 

(57344 + N) : NEXT N 
EY 438 REM SET UP DISPLAY LIST 
QA 448 GRAPHICS 17:P0KE 559,8 

LU 458 DL = PMBASE-256**6 : S C R L O U= D L + 2 2 : SCRHI 
GH=DL+23 

BH 468 RESTORE 8 0 : FOR H = 0 TO 32 : READ ' ft : IM) 

KE DL+M,A:HEHT N 
DR 478 POKE SCRLOM. BSCL : POKE SCRHIGH.BSCH 

:POKE DL+33 . PEEK (568) : POKE DL+34,PEEK( 

561) 

XK 488 POKE D L + 4 , P E E K ( 8 8 ) : P O KE DL+5.PEEK( 
89):POKE 568 , DL-INT (DL/256) *256 : POKE 5 
61 , DL/256 

RI 498 N = PEEK (88) +PEEK (89) **256 + 488 : HIGH = I 

NT(N/256) : L 0U= N - H I G H**2 5 6 : POKE DL + 38,L0 

U'.POKE DL + 31,HIGH 
GH 588 POKE 512,14:P0KE 5l3,6:POKE 54286, 

192:P0KE 1543,18 
EE 510 REM INIT SCROLL SUBROUTINE 
XM 528 RESTORE 238:F0R N=l TO 18 : READ A ! R 

OUTINES (N , N) =CHRS (A) : NEXT N 
GU 538 HIGH=INT (SCRLOU/256) : LOU=SCRLOU~HI 

GH~256:ROUTINES(8,8)=CHRS(LOU):ROUTINE 

S(9,9)=CHRS(HIGH) 
YA 548 HIGH = INT (5CRHIGH/256) : LOW=SCRHIGH- 

HIGH*256 :ROUTINES(4,4)=CHRS(LOU) :ROUTI 

NES(5,5)=CHRS(HIGH) 
CH 558 A=USR(1768) 

TR 568 REM SET UP P/M GRAPHICS 
SF 578 UUTP=PEEK(134) +PEEK (135) *256 
JF 588 STARP=PEEK (148) + PEEK (141) *256 
OJ 598 OFFSET=PMBASE-ST ARP 

LC 688 HI = INT (OFFSET/256) : L O U= O F F S E T - H 1*2 
56 

HA 618 POKE UVTP* 2 . LOW : POKE UVTP+3.HI 

MN 628 PMS (512) = «•♦•• : PMS (648) =PMS (512) : PMS 

(513) =PMS (512) 
ON 638 POKE 623,i:POKE 704.12.POKE 53256. 
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KN 648 POKE 54279. IN iT(PMBASE/256) : POKE 53 
277,3:P0KE 7 5 6 . I N T ( P MB A S E/ 2 5 6 ) 

UR 6 58 PMS (9. 33) "UUUUULiU U Zw wui w w wmUUUUCUU 
U" 

HK 660 REM DRAM SCREEN 

UI 678 TSCH=PELK (89) : TSCL=PEEK (88) : POKE 8 

9,BSCH:P0KE 88. BSCL 
XN 680 POKE 87,0:P0KE 752 , 1 : POSITION 8.8: 

? SC S 

TC 698 RESTORE 240:FOR N = 0 TO 15: READ AS: 
POSITION 1,N:? "■ "; AS : POSITION 16~(N 
>9).N:? N:POSITION 39.N:? "■"'-NEXT N 

GU 788 POKE 88.TSCL:P0KE 89.TSCH:P0KE 87. 
8 

LS 710 FOR N=l TO 31 STEP 10:C0L0R 33*(M= 
11) ♦ (H = 21) *2 + (N = 31)**138 : FOR M=8 TO 6 S 
TEP 3 

PX 728 FOR 1 = 8 TO 8: FOR J = 8 .TO 1 : P L O T N + I 

,M+J-(M=6 AND N=31)~3:NEXT J:NEXT I 
JG 738 NEXT M : NEXT N 
ZP 748 POKE 87,8:P0KE 752,1 
QU 758 FOR C=l TO 12:G0SUB 1288:NEXT C 
CY 768 POSITION 1,9:? «6 ; "■■■■■■■CHHSMHI 

RR 778 POSITION 1,18:? «6 ; 

HU 788 POKE 89,BSCH:P0KE 88, BSCL 

zi 7 98 crss = -*"Ui:i:i:i:i:i:u"" 

JM 888 B L KS = " 

SU 818 POKE 559,46 

G A 828 LY=528 : Y=l : X=l : GOTO 928 
PL 838 REM UPPER UINDOU ROUTINE 
CI 848 IF STRIG(8)=8 THEN 848 

HC 858 IF STRIG(8)=8 THEN GOSUB 1358:G0T0 
988 

NZ 86 8 FOR DEL A Y = 1 TO 15 : NEXT DELAY 
SO 878 GOSUB 1218 

YT 888 IF DX=0 AND DY=8 THEN 858 

JU 898 POKE 77,8 

UO 988 X=X*DX : Y= Y+DY 

TD 918 X = X- (X = 5) **4+ (X = 8) *4 : Y = Y- (Y = 4) *3+ (Y 
= 8) **3 

TO 928 PMS (LY , LY+9) =BLKS 
UD 938 LY=Y*21+589 
XU 948 POKE 53248 , K»4B+22 
FA 958 PMS (LY . LY+9) =CRSS 
QU 968 GOTO 850 

PG 978 REM LOWER UINDOU ROUTINE 

UM 988 CLOC=1527+K+Y*4:CLOC=CLOC-(Y=l)*82 

4:IF Y=3 AND X=4 THEN CL0C=712 
HM 998 C=X* (Y-l) *4 : COLR=INT (C (C) /16) : LUM= 

C (C) - (COLR) *16 
UI 1888 BSCRN=BSCL+BSCH~256 

IX 1818 SCLOC = BSCRN+ (COLR> 2 AND C0LR<13)« 

(C0LR-2)**4 8+(C0LR>12)**4 88 
ZT 1828 GOSUB 1248 

SE 1838 BK = LUM+19+ (LUM> 9) ** (LUM-8) /2 : BY = CO 
LR:POSITION BX , B Y : ? "X" : LBX=BX : LB Y=B Y 



STRIG(8)=8 THEN POSITION BX , B Y 
GOSUB 1350:GOTO 848 



OX 


1848 


YM 


1858 


LK 


1868 




: ? •« 


EU 


1878 




+ DY 


MB 


1888 


NF 


1898 


QU 


1188 



FF 1118 IF BY>15 OR BY<8 THEN BY=LBY : DY=8 
YK 1128 POSITION LBX, LBY : ? " " 

SH 1138 IF BSCRN*BY**48 <SCLOC THEN SCLOC = S 

CLOC-48 : GOSUB 1248 
CQ 1148 IF BSCRN+BY*48> SCLOC+208 THEN SCL 

OC=SCLOC+48 : GOSUB 1248 
HL 1158 POSITION B X , B Y : ? "X" : LBX = BX : LB Y = B 

Y 

LB 1168 LUM=LUH+DH*2 : CC=LUM+16*BY : POKE CL 

OC , CC : C (C) =CC : GOSUB 1268 
GB 1178 POKE 88,TSCL:P0KE 89 . TSCH : GOSUB 1 

308 

ZL 1188 POKE 88,BSCL:POKE 89.BSCH 
QE 1198 GOTO 1858 

XU 1288 REM READ JOYSTICK SUB 
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TK 1210 5=STICK C8) : DK= tS> 4 AND S<8)~CS>8 

AND 5 <12) : DY= CS = 5 OR S=9 OR 5=13)(S=6 
OR 5=10 OR 5=14) 
BU 1229 POKE 16,112:P0KE 53774 , 112 : RETURN 

GU 1230 REM SCROLL SUB 

DB 1240 fl=U5R (ADR (ROUTINES) , SCLOCJ : RETURN 



WAIT FOR HORIZO 



PF 
GU 

OH 
QH 
JN 



ID 
AU 

KM 
UQ 
DF 



1258 
1268 
POKE 
1278 
1288 
1298 
4 

1388 
'• ; BY ; 
1318 
1328 
THEN 
1338 
1348 
1358 
T N : S 



REM SET TEHT COLOR SUB 

fl=PEEK(712)-INT(PEEK(712)/16)*16: 

1543, 19-(A>9)*2:RETURN 

REM WRITE HUE/LUH SUB 

BY = INT(C(C)/16) :LUM=CCC1-BY**16 

Y = l+ CO 43 + CO 8) :K = C-INT((C-l)/4)» 

P8SITI0N K*10-9- CBY>9J , Y**3 - 1 : ? 

POSITION K*18-6,Y*3-l:? LUM;" ; 
POSITION K*18-3,V*3-l:lF C(C) <99 
? ,a "; :IF C(C) <18 THEN ? " ■• ; 
? C CO : RETURN 
REM BEEP SUB 

SOUND 8 , 58 , 14 , 6 : FOR N=8 T8 10.NEK 
OUND 8, 8 , 8 , 8 : RETURN 



LISTING 2 



COLOR PALETTE INTERRUPTS 

JOHN W. FELTON 

CO 1985, ANTIC PUBLISHING 

; ATTRACT MODE RE 



18 ; 
28 J 
38 J 
48 ; 

58 DRKHSK = S4E 
DUCED LUMINANCE MASK 
68 COLRSH = S4F 
LOR SHIFT MASK 

78 MSYNC = SD40A ; WAIT FOR HORIZO 
NTAL SYNCHRONIZATION REGISTER 



ATTRACT MODE CO 



88 COLPF8 = 5D816 
FOR PLAYFIELD ZERO 
98 C0LPF1 = SD017 
FOR PLAYFIELD ONE 
8188 COLPF2 = SD018 
FOR PLAYFIELD TWO 
8118 COLPF3 = 3D019 
FOR PLAYFIELD THREE 
8128 COLOR4 = S02C8 
R REGISTER SHADOW 
8138 VDSLST = $8288 
TERRUPT VECTOR 
8148 SYSVBV = SE45F 
CAL BLANK ENTRY 
8158 SETVBV = SE45C 
ANK VECTOR ROUTINE 
8168 CHBASE = SD409 
ADDRESS 

8178 -ORG 58688 

E SIX 

8188 COLR8 . DS 1 
FOR DISPLAY COLORS 
8198 COLR1 .DS 1 
8288 COLR2 
8218 COLR3 
8228 COLR4 
8238 COLR5 
8248 COLR6 
8258 COLR7 - DS 1 
8268 .DS 4 

8278 ; 

8288 ; INTERRUPT ssl 
8298 ; 

8388 INT1 PHA 

R ON STACK 

8318 LDA COLOR4 

COLOR 
8328 EOR COLRSH 



. DS 1 

. DS 1 

• DS 1 

-DS 1 

.DS 1 



COLOR REGISTER 



COLOR REGISTER 



COLOR REGISTER 



COLOR REGISTER 



BACKGROUND COLO 



DISPLAY LIST IN 



STAGE ONE VERTI 



SET VERTICAL BL 



CHARACTER BASE 



POSITION ON PAG 



DEFINE STORAGE 



EKTRA STORAGE 



PUSH ACCUMULATO 



LOAD BACKGROUND 



PERFORM ATTRACT 



MODE OPERATIONS 
8338 AND DRKMSK 

8348 STA WSYNC 

NTAL BLANK 

8358 STA C0LPF2 ; STORE IN GR . 8 B 

ACKGROUND COLOR REGISTER 



STA VDSLST 



LDA tt >INT2 



8368 LDA COLR7 

LOR SEVEN 

8378 EOR COLRSH 

MODE OPERATIONS 
8388 AND DRKMSK 

8398 STA COLPF1 

UMINANCE COLOR REGISTER 
8488 LDA « <INT2 

NEXT 
8418 
THE 
8428 
TERRUPT 

8438 STA VDSLST+1 

8440 PLA 

OFF OF STACK 
0450 RTI 1 

ERRUPT 
0460 ; 

0470 ; INTERRUPT **2 
0480 ; 

0490 INT2 PHA ; 
R ON STACK 

0500 LDA COLRO ; 

LOR ZERO 

0510 EOR COLRSH J 

MODE OPERATIONS 
0520 AND DRKMSK 



LOAD DISPLAY CO 



PERFORM ATTRACT 



STORE IN GR.8 L 

LOAD ADDRESS OF 

INTERRUPT INTO 

DISPLAY LIST IN 

; VECTOR 
POP ACCUMULATOR 

RETURN FROM INT 



O530 STA WSYNC 

NTAL BLANK 
8548 STA COLPF8 

REGISTER ZERO 
8558 LDA COLR1 

LOR ONE 

8568 EOR COLRSH 

OPERATIONS 
8578 AND DRKMSK 

8588 STA COLPF1 

REGISTER ONE 
8598 LDA COLR2 

LOR TWO 

8688 EOR COLRSH 

OPERATIONS 
0618 AND DRKMSK 

8628 STA C0LPF2 

REGISTER TWO 
8638 LDA COLR3 

LOR 3 

8648 EOR COLRSH 

MODE OPERATIONS 
8658 AND DRKMSK 

8668 STA C0LPF3 \ 

REGISTER THREE 
8678 LDA tt <INT3 1 

NEXT 

8688 STA VDSLST 

8698 LDA tt >INT3 J 

TERRUPT 

8788 STA VDSLST+1 

8718 PLA 

OFF OF STACK 
8728 RTI 1 

ERRUPT 
8738 ; 

8748 ; INTERRUPT «3 
8758 ; 

8768 INT3 PHA 
R ON STACK 



PUSH ACCUMULATO 
LOAD DISPLAY CO 
PERFORM ATTRACT 

WAIT FOR HORIZO 
STORE IN COLOR 
LOAD DISPLAY CO 
PERFORM ATTRACT 

STORE IN COLOR 
LOAD DISPLAY CO 
PERFORM ATTRACT 

STORE IN COLOR 
LOAD DISPLAY CO 
PERFORM ATTRACT 

STORE IN COLOR 

LOAD ADDRESS OF 

INTERRUPT INTO 
DISPLAY LIST IN 

; VECTOR 
POP ACCUMULATOR 

RETURN FROM INT 



PUSH ACCUMULATO 
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LDA COLOR* 



LOAD BACKGROUND 



PERFORM ATTRACT 



WAIT FOR HORIZO 



STORE IN GR.8 B 



ST A VDSLST 



INTERRUPT INTO 



LDA *t >INT4 ; DISPLAY LIST IN 



STA VDSLST+1 
PLA 



0778 

COLOR 
8788 EOR COLRSH 

MODE OPERATIONS 
8798 AND DRKMSK 

8888 STA USVNC 

NTAL BLANK 
8818 STA C0LPF2 

ACKGROUND COLOR REGISTER 

8828 LDA C0LR7 ; LOAD DISPLAY CO 

LOR SEVEN 

8838 EOR COLRSH ; PERFORM ATTRACT 

MODE OPERATIONS 
8848 AND DRKMSK 

8858 STA COLPF1 ; STORE IN GR.8 L 

UMINANCE COLOR REGISTER 

8868 LDA « <INT4 ; LOAD ADDRESS OF 

NEXT 
8878 
THE 
8888 
TERRUPT 
8898 
8988 

OFF OF STACK 
8918 RTI 
ERRUPT 
8928 ; 

8938 ; INTERRUPT «4 
8948 ; 

8958 INT4 PHA 
R ON STACK 
8968 LDA COLR4 

LOR FOUR 

8978 EOR COLRSH 

MODE OPERATIONS 
8988 AND DRKMSK 

8998 STA I4SYNC 

NTAL BLANK 
1888 STA C0LPF8 

REGISTER ZERO 
1818 LDA COLR5 

LOR FIVE 

1828 EOR COLRSH 

OPERATIONS 
1838 AND DRKMSK 

1848 STA COLPF1 

REGISTER ONE 
1858 LDA COLR6 

LOR SIX 

1868 EOR COLRSH 

OPERATIONS 
1878 AND DRKMSK 

1888 STA COLPF2 

REGISTER TWO 
1898 LDA « <INT5 

NEXT 

1108 STA VDSLST ; 

1110 LDA « >INT5 ; 

TERRUPT 

1128 STA VDSLST+1 



; VECTOR 
POP ACCUMULATOR 



RETURN FROM INT 



PUSH ACCUMULATO 



LOAD DISPLAY CO 



PERFORM ATTRACT 



WAIT FOR HORIZO 



STORE IN COLOR 



; LOAD DISPLAY CO 



PERFORM ATTRACT 



STORE IN COLOR 



LOAD DISPLAY CO 



PERFORM ATTRACT 



; STORE IN COLOR 

; LOAD ADDRESS OF 

; INTERRUPT INTO 

; DISPLAY LIST IN 



VECTOR 



1138 PLA 

OFF OF STACK 
1148 RTI 
ERRUPT 
1158 ; 

1168 ; INTERRUPT **5 
1178 ; 

1188 INT5 PHA 

R ON STACK 

1198 LDA COLOR4 

COLOR 
1288 EOR COLRSH 

MODE OPERATIONS 
1218 AND DRKMSK 



POP ACCUMULATOR 



RETURN FROM INT 



PUSH ACCUMULATO 



LOAD BACKGROUND 



PERFORM ATTRACT 



1228 STA WSYNC ; WAIT FOR HORIZO 

NTAL BLANK 

1238 STA COLPF2 ; STORE IN GR.8 B 

ACKGROUND COLOR REGISTER 

1248 LDA *t$EO ; LOAD MSB OF ADD 

RESS OF CHARACTER SET IN ROM 
1258 STA CHBASE ; STORE IN CHARAC 

TER SET BASE POINTER 
1268 LDA COLR7 

LOR SEVEN 

1278 EOR COLRSH 

MODE OPERATIONS 
1288 AND DRKMSK 

1298 STA COLPF1 

UMINANCE COLOR REGISTER 

1388 PLA ; POP ACCUMULATOR 

OFF OF STACK 
1318 RTI 
ERRUPT 

1328 ; 

1338 ; VERTICAL BLANK INTERRUPT 
1348 ; 

1358 VBI LDA « <INT1 

FIRST 
1368 
THE 
1378 
TERRUPT 
1388 
1398 



LOAD DISPLAY CO 



PERFORM ATTRACT 



STORE IN GR.8 L 



RETURN FROM INT 



LOAD ADDRESS OF 



STA VDSLST 



LDA «t >INT1 



INTERRUPT INTO 



DISPLAY LIST IN 



; VECTOR 
JUMP TO OS VERT 



STA VDSLST+1 
JMP SYSVBV 
ICAL BLANK ROUTINE 
140O ; 

1410 ; SET VECTOR TO VERTICAL BLANK IN 

TERRUPT 

1420 ; 

1430 PLA ; DISCARD NUMBER 

OF PARAMETERS PASSED IN BASIC CALL 

continued on next pase 



SOUTHERN SOFTWARE 

D I V IBI ON C3W BQUTHEWN SUPPLY CO. 

1879 Ruffrfer Rd. Birmingham, AL 35210 
PHONE 205-956-0986 

BEND HELP ADDRFflBED STAMPED ENVEUOPE POF* 

oum rar* so bpkc x al. bhe.sc t updated iss/ehy web 



THIRD F>#=%RcTY 
30^£. OFF I — I ST 



SOFTWARE 
F>Ft I 



tr. tvi n ini cz f=: t~i i=: tvi t S5 

810 ENHANCEMENT *1 79.95 

1050 ENHANCEMENT 179.95 

1050 MAX1M17ER B9.95 

1050 CONTROLLER 39.95 

/*XI_C1IM RAMPnWER 

128K RAM DISK 259.95 

4BK RAMPOWER 79.95 

32K RAMPOWER 49.95 

I CD I tvJC^ - 

SPAR! A DOS 34.95 

US DOUBLER 59.95 

CHIP FOR BIO B9.95 

HAPPY ARCH I VER 37.00 

R- T I ME CARTRIDGE 69.95 

ANY THING NOT 1 I E3 T EEL 



^ r ar I 

8i»0 XL 99.95 

1030 MODEM 99.95 

1050 DISK DRIVE 179.95 

1010 RECORDER 59.95 

1020 PFUNIER 79.95 

1027 PRINIER 259.95 

1025 PR1N1ER 199.95 

LIGHT PEN 49.95 

TOUCH TABLE I 59. 95 

B50 INTERFACE 129.95 

NUMERIC KEY PAD 49.95 

TRAK BALL 29.93 

A I AR I WRITER 39.95 

V1SICALC 49.95 

SYNCAl C 49. 95 

SYNF ILE 49.95 

SYN I REND 49.95 

_ _ _ _ - CALL- 



ALL PRICES LISTED ARE FOR MAIL ORDERS ONI Y. CRFDI1 CARD 
AND L.O.D. URDFRS APPROX 1 MA I F LY 10'/. HIGHER. Df.Al ER 

INUUIRIES WELCOME. SEND FOR OUR FREE BROCHURF AND PRICE 
HBT. ADD *5.O0 FOR SHIPPING, HANDLING AND INSURANCE. 
FOREIGN ORDERS WELCOME WITH SUFFICIENT POSTAGE INCLUDED. 



SOUTHERN SOFTWARE 

D I V I H I ON OP SOUTHERN SUPPLY CO. 

1B79 Ru-ffner Rd- Birmingham, AL 35210 
PHONE — «5>S<£» — O^OrfB 
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1440 LDY tt <UBI ; LOAD V WITH LSB 

OF INTERRUPT ADDRESS 
1458 LDK tt >VBI ; LOAD K WITH MSB 

OF INTERRUPT ADDRESS 
1468 LDA «6 ; LOAD ACCUMULATO 



R WITH SIK FOR IMMEDIATE VBI 

1478 JSR SETUBV ; CALL OS ROUTINE 

TO SET VECTOR 
1488 RTS ; RETURN FROM SUB 

ROUTINE 



fast graphic power from BASIC 



G.U.P. THE GREAT 



LISTING 1 



Don't type the 
TypO II Codes! 



KS 18 REM GUP.BAS 
MG 28 REM BY DAREK MIHOCKA 
FU 38 REM (O 1985, ANTIC PUBLISHING 
MF 48 DIM FHS (20) , TEMPS (28) , ARS (93) 
MP 58 ? "^Output fi lenane"; : INPUT FNS:CAS 
5 = 8 

SB 68 IF FN5(l,i)="D" AND (FMS C2 , 2) =" : D 

R FM$ (3 » 3) =" : "J THEN 88 
MG 78 TEMP$(1,2)="D:":TEMP$(3)=FH$:FHS=TE 

MPS 

MH 88 TRAP 158 

FU 98 ? :? :? "Uorkins. . .please stand by" 

LM 188 RESTORE : READ LN : LM=LN : DIM AS(LN): 

C = l 

BG 118 ARS = •••• : READ ARS 

KS 128 FOR H = l TO LEN (ARS) STEP 3:P0KE 75 

2 , 255 

DC 138 LM=LM-1 : POSITION 18,18:? "(Countdo 

wn . . . T-" ,* INT (LH/18) ; ••) •* 
OQ 148 AS (C , C) =CHRS (UAL (ARS (X , X + 2) ) ) : C = C + 

1 : NEXT X : GOTO 118 
KK 158 NUMHI=INT CLM/256) : NUML O = L N - N UMH 1*2 

56 

AU 168 OPEN t*l,8,8,FNS 

UD 178 AD = ADR (AS) : ADHI=INT (AD/256) : ADLO = A 
D-flDHI*256 

RN 180 I0=848:P0KE IO+2,ll:POKE 10+4, ADLO 
:POKE 10+5 , ADHI : POKE I O + 8 , N U ML O : P O KE I 
0+9 , NUMHI 

EF 198 X=USR (ADR ( h h hSL UE" ) , 16) : CLOSE «1 
RO 288 GRAPHICS 8:? "WaQEBClIlEHlGMr* 
MG 1888 DATA 1989 

XU 1818 DATA 2 5 5 2 5 5 8 8 8 8 6 4 18 4 8 718 7 6 8 6 8 8 718 

55871839865112865148865838867142864859 

868872869824868842878828871 
FK 1828 DATA 8 4 8 8 718 9 6 8 712 3 3 8 7 2 2 3 3 8 7 2 8 8 8 8 

88888839858833848848841835851888853852 

841844841852857888888834857 
TD 1838 DATA 8 8 8 8 3 6 8 3 3 8 5 8 8 3 7 8 4 3 8 8 8 8 4 5 8 4 18 

48847835843833888888888165283841887885 

286178165284841883168189148 
XF 1848 DATA 8 6 4 8 3 7 2 8 713 3 2 2 8 8 7 3 2 5 5 8 5 714 2 8 

64133285166284224192176834165283168882 

248889874136248885874136248 
CZ 1858 DATA 8 818 7 416 818 918 5 8 7113 3 214 18 9 8 

888888255255255255888888888 
SS 1868 DATA 8 8 8 8 8 8 8 8 8 8 8 8 8 888880888152488 

15248815248815248863287243252863287243 

252127191223239247251253254 
LD 1878 DATA 16 5 2 2119 7 2 8 3 2 4 8 8 4117 6 8 8 616 6 2 

83134221133283165221845838865133223165 

283845838865197223248869197 
PD 1888 DATA 2 8 3 2 4 8 8 2 31812 8 913 3 2 2 4 8 3 2 8 7 3 8 

64238283165283197221248858197223248846 

197224288237169888133287832 
RV 1898 DATA 8 7 3 8 6 4 1 6 5 2 8 3 8 2 4 1 8 1 2 O 9 1 3 3 2 8 3 8 

76815865238214288882238215165285145214 

165 283824181289133283197223 
QC 1188 DATA 2 8 8 2 3 516 9 2 5 513 3 2 8 7 8 3 2 8 7 3 8 6 4 1 

652831972212488852 3828 38 76 8 2 3865 096808 

184184104141118865184184133 
KF 1118 DATA 2 8 4 18 4 18 413 3 2 2118 418 4 13 3 2 2 2 1 
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73118865197221144887166221142118865133 

221165284197222144886166222 
EM 1128 DATA 13 4 2 8 413 3 2 2 217 3118 8 6 513 3 2 8 3 8 

32194864238284165284197222288248173110 

865133283832194864896888888 
IX 1138 DATA 8888881841412888652382888652 

38288865173212865872169880072173218865 

072169888872173288865872104 
BT 1148 DATA 8 7 4 2 4 8 219 2 810 8 12 8 8 0 0 3 8 7 6 8 7 3 8 

6414128886528628886518418 4 133283184184 

133284133226876182865173218 
JF 1158 DATA 8 6 513 3 2 8 317 3 212 8 6 513 3 2 0 4 13 3 2 

26184141211866184 13322114 1218865184 184 

133222141212865832214865286 
EM 1160 DATA 2 O 8 8 6 5 2 8 8 2 1 9 8 9 6 8 0 8 8 8 8 8 0 8 8 0 0 O 

88888165222197284288883876188064 16522 1 

197283288883876253866176818 
KE 1178 DATA 16 6 2 8 313 4 2 2113 3 2 8 316 5 2 8 4 16 4 2 

22133222132 2841322261652 21856229283141 

283866872165284133226169808 
TR 1188 DATA 1412 4 8 8 7 81412110 6 618 4 816 8 8 61 

41248878878283866238283866165222856229 

284176889872169881141211866 
OR 1198 DATA 1 8 4 8 7 3 2 5 5 8 2 4 1 8 5 O 0 1 1 4 1 2 0 7 0 6 6 1 

69000032214066072141207066173205066133 

219169000141207066104024105 
KN 1200 DATA 0 0 0 0 3 2 214 0 6 617 3 2 0 5 0 6 613 3 2181 

69128133225169238141183866141168866173 

248878248885824 182219182218 
PG 1218 DATA 16 5 21914 1213 8 6 6 2 818 812 8 8 8 8 51 



255133218165219873255133219 
CF 1228 DATA 16 919 814118 3 8 6 614116 8 8 6 617 3 2 

138662488428 32 873864824165225181218133 

225165226181219133226165284 
CN 1238 DATA 19 7 2 2 6 2 4 8 8 2 8 2 3 8 2 8 416 5 2 8 419 7 2 

26240012197222240008832873864238284876 

178866832873864165283197221 
HI 1248 DATA 2 4 8 8 8 5 2 3 8 2 8 3 8 7 6 1 4 9 8 6 6 8 9 6 8 8 O 0 

00000000000000008888888888888168888856 

237203066008846285866814287 
GN 1258 DATA 8 6 6 8 4 2 8 4 814 4 8 862372838668762 

48066109203066136208233176884189283866 

824846285866896165284197222 
GN 1268 DATA 1448861642221332221322848328 

7386416528419722224881123828483287386 4 

165284197222288245896184184 
ES 1278 DATA 18 413 3 2 3 818 418 413 3 2 3118 413 3 2 

25133226184133227248236141283866169128 

141287866169888032214066072 
FP 1288 DATA 16 9 8 8 01412 0 7 0 6 617 3 2 0 5 0 6 613 3 2 

19104032214066173205066133218169255133 

236165225824181218133225165 
DD 1298 DATA 2 2 618121913 3 2 2 617 8 8 3 6 2 2 6 8 4 81 

81238236165231856229236133284189178869 

141146864169888141287866162 
PU 1388 DATA 8 8 8 8 781468641448838241812271 

8611828786 62 82208 24123423413322917 38 24 

868248837165238824101229133 
DH 1310 DATA 2211652300562292291332030321 

94064165231024101236133204165230056229 
229133203032194064076086867 
AU 1328 DATA 16 5 2 3 6 2 8 8 8 3116 5 2 3113 3 2 8 416 5 2 

38824181229133203032073064165230056229 
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229133283032873064165229133 
SB 1338 DATA 2 2 8 8 7 6 8868671652318241812361 

33284832245867165231856229236133284832 

245867876215867165238856229 
AR 1348 DATA 2 2 813 3 2 8 316 5 2 3 8 8 5 6 2 2 9 2 2 913 3 2 

21832188864165238824181228133221165238 

824181229133203832188864896 
GC 1358 DATA 8810000000000000000160240160 

24016024008888888888888824816255888881 

255255255255255255881881881 
GK 1368 DATA 2 5 5 2 5 5 8 818 8 818 418 418 41418 3 6 8 

69841815178189827868133286169234141141 

867141142867189843868248829 
KX 1378 DATA 2 812 5 5 2 4 8 8 2 8 2 818 8 2 2 4 8 8 8 816 9 8 

7414114186 7876115868169874141142867876 

894868169818876896868189838 
KG 1388 DATA 8691418788691898548691418388 

65189258878141188864141826868189818871 

133289138281812816822173836 
EO 1398 DATA 8 6 9 8 3 218 8 8 6 917 3 8 3 6 8 6 9 8 41815 2 

81889848865169884141191882288858173836 

869841848141826871173836869 
IP 1488 DATA 8418831788721898268698138268 

71832188 86 9184178189832869141831869174 

836869168282177214841191285 
IU 1418 DATA 8388692888891772148412488138 

31869145214136288235162888189896871157 

192882282816247165888824181 
XZ 1428 DATA 2881332251411858711658891332 

26141841872168881824165225189878869133 

225153185871165226185888133 
JL 1438 DATA 2261538418722881921922882318 

96888888888888888888884885812814888888 

848828828818818828828848848 
BY 1448 DATA 8488488488488488288482552552 

55252248252248252248254254254255255248 

252888888184184141833882184 
DH 1458 DATA 1418 3 2 8 8 218 418 417 816 9 2 5 51418 

46882173811212824181828818141818212157 

818288173846882288238896872 
RU 1468 DATA 1628961698121578668838328862 

28162896169883157866883169168157868883 

169869157869883184157875883 
HC 1478 DATA 8 412 4 88738281578748838328862 

28173848882133214173849882133215168887 



17721414183886989688385815 3 
VG 1488 DATA 15 315 315 315 315 315 315 315 315 31 

53152152152152152152152151151151151151 

158158158158158149149149148 
DA 1498 DATA 14 814 814 714 714 714 614 614 614 51 

138138137137136135135134134 
AM 1588 DATA 13 313 213113113 812 912 812 812 71 

26125124123123122121128119118117116115 

114113111118189188187185184 
VT 1518 DATA 18 318 218 8 8998978968948938918 

98888886884882881879876874872878867865 

862868857853858846843838833 
A V 1528 DATA 8 2 7 819 8 8 818 418 418 413 3 2 8 318 41 

84133284184133233184133234184184133235 

198235168888165234133214165 
GE 1538 DATA 2 3 313 3 21517 7 21413 2 2 2 4 8 7 2 8 418 

96874874874874874168185244878133223184 

841159885223133218169888133 
VG 1548 DATA 219 8 2 4 8 3 8 218 8 3 8 219 8 3 8 2188382 

19838218838219165218133214165219824185 

224133215168887132232152824 
UN 1558 DATA 1812 8 417 816 5 2 8 3 8 7 4 8748241251 

85871133212189841872185888133213165283 

841883178824164232177214133 
KQ 1568 DATA 21616 9 8 8 813 3 21718 2 21618 2 217 2 

82816249168888173242878849212869216145 

212288173242878849212869217 
US 1578 DATA 14 5 21216 4 2 3 213 6 81618 3 2 3 8 2 8 3 2 

38283238283238283165283281152144816856 

233152133283165284824185888 
MN 1588 DATA 13 3 2 8 4 2 8118 414 4 8 8 816 4 2 2 419 6 2 

35248884288876865878896255888864888832 

896888888888888888882883882 
QD 1598 DATA 8838828838818818818888888838 

82881881881884888884888884888882882882 

881881888884888888184184184 
go 1688 DATA 13 3 2 8 318 418 413 3 2 8 4 8 7 6 8 7 3 8 6 41 

84162884168888184184153142864288282288 

247896184162883173818218157 
KG 1618 DATA 14 2 8 6 4 2 8 2 816 2 4 7 8 9 616 58881332 

12165889133213168839185833864145212136 

816248169255133287169836141 
RY 1628 DATA 19 8 8 8 2 8 9 6 8 8 8 8 8 8 8 8 8 8 8 8 8 3 6 2 8 61 

58255888224882225882888864 

continued on page 76 
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GUITAR TUTOR 



Article on page 35. 



LISTING 1 



Don't type the 
TYPO II Codes! 



RF 1 REM GUITAR TUTOR 

T N 2 REM BY FRANK IMBURGIO 

FD 3 REM (O 1985, ANTIC PUBLISHING 

HJ 5 CLOSE »l:0PEN «1 , 4 , 8 , " K : " 

OQ 18 DIM TOPS (38) . BOTS (30) , FRETS (38) 

IMG 5 (30 3 , PATTERN ( 6 ) ,T0MES(63) :F0R 

TO 63 : TONES ( X ) =32 : NEXT H:GOSUB 28 
US 15 GOSUB 188:? ••*«•:? :? : GOSUB 58: 

B 588:G0SUB 1568:G0T0 15 
RP 28 FOR M=l TO 13 : READ fl:T0P5(K,K)= 

( A) : NEHT X 
RJ 21 DATA 32,32,17,18,23,18,23,18,23 

23,18,5 

EV 25 FOR X=l TO 13 : READ ft:BOT$(K,K)= 

C A) : NEXT X 
TA 26 DATA 3 2,32,26,18,24,18,24,18,24 

24,18,3 

FN 38 FOR X=l TO 12 : READ A:FRET$(X,X) 

5(A): NEXT X 
SG 31 DATA 32,1,18,19,18,19,18.19,18, 

8 , 4 

FC 48 FOR X=l TO 13 : READ A:STRINGS(X, 

HRS ( A) : NEXT X 
SL 41 DATA 32,32,124,32,124,32,124,32 

,32.124,32.124 
A E 45 RETURN 



, STR 
X = B 

GOSU 

CHRS 

, 18 , 

CHRS 

. 18 , 

= CHR 

19,1 

X) =C 

124 



JI 
OU 

OG 

BI 

AR 
SO 
XN 
SN 

DV 

HH 

SP 
DX 



58 ? TOP$:FOR X=8 TO 6:? X;:? FRETS:? 
STRINGS:NEXT X:? BOTS 

68 POSITION 9,8:G0SUB 788:G0SUB 718 

65 POSITION 2,28:? TO PLAV NUMB 

ERED CHORDS" 

70 POSITION 2.21:? "MBH TO SOUND NOT 

ES" 

75 POSITION 2,22:? "ISBSI for new chor 
d.":REM USE INVERSE VIDEO FOR P.S.AND 
ESC 

99 RETURN 

188 GOSUB 1588 

182 POKE 751,i:POKE 752,1 

118 ? "Pick a note to build a chord on 



' : ? 



: ? 



:? "A 



128 ? "C" : ? "D" : ? 

: ? "B" : ? : ? ••? ,, 
138 GET «1,K:IF K<65 OR K>71 THEN ? "C3 
":GOTO 138 
148 TONIC=K: TNC=K 

141 G8SUB 1588:? "You have picked CH 
RS(K);" as your tonic .":? :? "Now pick 



VQ 142 ? 



•1) Natural* 
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IQ 143 ? "2JFlat» 

TM 144 ? " 3 ) Sharp" : ? 

ZU 145 TRAP 145:INPUT flCC:IF ACC<1 OR ACC 

>3 THEM 145 

MB 146 TRAP 48880:IF flCC=2 THEN TOMIC=TOM 

IC + 7 

UI 147 IF ftCC=3 THEN T O N I C = T O N I C ♦ 1 4 

T ft 158 G05UB 1588 

GM 168 ? "Pick a chord pattern" 

EZ 178 ? "DHajor":? "23 Minor":? "3)7th": 

? "4)nin 7th":? 

BD 188 TRAP 18fl:lNPUT CHORD 

TT 198 IF CH0RD<1 OR CHORD>4 THEN 188 

FI 195 CHORD =CHORDl : TRAP 48888 

YV 288 RETURN 

E K 588 G05UB 6 8 8 : L I N E = X : X = H ♦ C H O R D 

GT 585 POKE 752 - i : RESTORE X 

GU 518 POSITION 4,2:F0R F=l TO 6 : READ ft:? 

CHR$ (fl) ; M " ; : NEK T F : F R E T = 4 

EJ 515 FOR F = 8 TO 5 : READ A : PATTERN ( F ) = A : N 

EKT F 

TE 528 FOR F=8 TO 5 : FRET=FRET+2 : RESTORE P 

ATTERN (F) 

538 POSITION 4, FRET 

535 FOR 1=1 TO 5 : READ A:? CHR$ (ft) ; "-" ; 

".NEXT I :READ A:? C H R 5 (ft 3 

548 NEXT F 

688 IF T0NIC=85 THEN TONIC=72 

681 IF T0NIC=79 THEN TONIC=73 

682 IF T0NIC=74 THEN T0NIC=66 

683 IF T0NIC=81 THEN T0NIC=75 



CR 
JH 

EZ 
ON 
RN 
RA 
PX 

RS 684 

ML 685 

UI 686 

QV 687 

MB 688 

UI 658 

A V 699 

OA 788 

HA 781 

GH 782 

FK 783 

YC 784 

PK 785 

01 786 

ZY 787 

JQ 718 
* 2 : ? 

XH 715 1=4 :FOR X=4 TO 16 STEP 2 

LM 728 POSITION 23, X:? CHR$ (TONES (I) ) ; 

01 738 ? CHR5 (TONES (1*1) ) ; 

BP 735 CHORD = TONES (1*2) : GOSUB 793:I = I + 7:N 

EXT X:CHORD=TONE 

XP 799 POSITION 23,X:? "■□BBDi" : RETURN :R 

EM USE INVERSE VIDEO FOR REST 

NL 1588 ? "*" : ? :? :? : POKE 752,8:? :POKE 

710, 8 : RETURN 

MM 1555 FOR TIME = 1 TO 288:NEXT T I ME : R E T U R 

N 



IF T0NIC=82 THEN TONIC=76 
IF T0NIC=77 THEN T0NIC=69 
IF T0NIC=84 THEN TONIC=78 
IF T0NIC=88 THEN TONIC=67 
IF T0NIC=83 THEN T0NIC=78 
H=((TONIC-65)*100)+2OO00 
RETURN 
? CHR$ (K) ; 

IF ACC=2 THEN ? "b"; 

IF ACC = 3 THEN ? ■•«••• ; 

IF CH0RD=1 THEN ? "win"; 

IF CH0RD = 2 THEN ? ,, 7"; 

IF CH0RD=3 THEN ? "nin?"; 

? " »•; 

RETURN 

FOR X = 2 TO 16 STEP 2:P0SITI0N 28, X 
CHRS((K/2)+176) : NEXT X:TONE=CHORD 



EZ 


1568 


TONIC 


= TNC : 


GET 


«1 , K 




PO 


1561 


IF CHR$(K) 


= ••5 


" THEN 


GO 


SO 


1562 


IF K>48 AND K<56 THEN 


UN 


1563 


IF K = 


88 THEN 


3288 




BB 


1565 


IF K<>27 THEN 


1568 




BE 


1578 


RETURN 








LT 


2888 


DATA 


1,19, 


19 , 


19,19, 


4 


EU 


2881 


DATA 


1,19, 


19 , 


19,28, 


4 


AP 


2882 


DATA 


1,19, 


28, 


28,19, 


4 


TQ 


2883 


DATA 


1,19, 


28 , 


28,28, 


4 


HK 


2884 


DATA 


28 , 28 


, 28 


,28,28 


, 28 


FK 


2885 


DATA 


1,19, 


19 , 


19,28, 


4 


DB 


2886 


DATA 


1,28, 


28 , 


19,19, 


4 


Gft 


2887 


DATA 


28, 19 


, 19 


,19,19 


,28 


HB 


2888 


DATA 


1,19, 


19 , 


19,19, 


28 


IU 


2889 


DATA 


1,28, 


19 , 


19,19, 


4 


JF 


2818 


DATA 


28 , 19 


, 19 


,19,19 


, 4 


ZX 


2811 


DATA 


1,19, 


19 , 


28,19, 


28 


FB 


2812 


DATA 


1,19, 


19 , 


19,28, 


4 


GD 


2813 


DATA 


1,19, 


19 , 


28,19, 


4 


ft C 


2814 


DATA 


1,19, 


28 , 


19,28, 


4 


H J 


2815 


DATA 


1,19, 


28 , 


19,19, 


4 


CG 


2816 


DATA 


1,28, 


19 , 


28,19, 


4 


GT 


2817 


DATA 


1,19, 


19 , 


28,19, 


4 


A B 


2818 


DATA 


1,19, 


19 , 


19,28, 


28 


OO 


2999 


REM ABOVE 


SETS UP ALL 



SHAPES FOR FINGER DOTS. 



ZH 3888 REM SOUND NOTES INDIVIDUALLY 

GY 3885 RESTORE LINE+99F0R X = 8 TO 4 : READ 

A : PATTERN (X) = A : NEXT X 
UO 3818 SOUND 0 , PATTERN (8) ,18,8: GOSUB 155 

5 

XD 3828 IF CHORD=l OR CH0RD=3 THEN SOUND 
1 , PATTERN (4) , 18 , 8 : GOSUB 1555 : GOTO 3848 

MC 3838 SOUND 1 , PATTERN (1) ,18,8: GOSUB 155 

5 

XN 3848 SOUND 2 , PATTERN (23 , 18, 8 : GOSUB 155 

5 

GS 3858 IF CH0RD=2 OR CH0RD=3 THEN SOUND 

3 , PAT TERN (3 J , 18 , 8 : GOTO 3868 
TR 3855 SOUND 3, INT ( (PATTERN (0)/2) -0 . 5J , 1 

8 , 8 

SB 3868 GOSUB 1555:G0SUB 1555:F0R X=8 TO 

3:S0UND X,8,8,8:NEXT X : RETURN 
CE 3188 REM PUT CHORDS INTO MEMORY 
BS 3118 TONE= (K-49)~7 : RESTORE LINE+99 
CC 3115 READ ONE , THREE , FIVE , SEV , MINTHREE : 

TONES (TONE) =ONE : TONES ( TONE + 2) =FIVE 
CR 3128 IF CH0RD = 8 OR CH0RD = 2 THEN TONES ( 

TONE+1) =THREE : GOTO 3138 
LF 3125 TONES (TONE+1) =MINTHREE 

IK 3138 IF CH0RD=2 OR CH0RD=3 THEN TONES( 

T0NE*3) =SEV : GOTO 3148 
PQ 3135 T0NES(T0NE+3)=INT((0NE/2)-0.5) 
NM 3148 TONES (TONE + 4) =TONIC : TONES (TONE + 5) 

= 32 

OA 3145 IF ACC = 2 THEN TONES (TONE + 5) -98 
BZ 3158 IF ACC = 3 THEN TONES (TONE + 5) =35 
OF 3155 TONES (TONE + 6) =CHORD 
KE 3168 GOSUB 718:RETURN 
XD 3288 REM PLAY CHORDS IN MEMORY 
HT 3285 GOSUB 1588:G0SUB 718:P0KE 752,1:? 
"■aHHi TO STOP PLAYING" : REM INVERSE 

VIDEO FOR ESC 
TG 3218 X=PEEK(764) : IF X=28 THEN 3238 
HS 3211 IF H=31 THEN K=8 
IF 3212 IF X=38 THEN K=l 
LN 3213 IF X=26 THEN K=2 
LO 3214 IF X=24 THEN K=3 
OV 3215 IF X=29 THEN K=4 
OM 3216 IF X=27 THEN K=5 
01 3217 IF X=51 THEN K=6 
QF 3218 IF X=53 THEN K=7 
DO 3219 IF K<8 OR K> 7 THEN 3218 
HJ 3228 T0NE = K~7:iF T O NE S ( T O N E ) = 3 2 THEN G 

OSUB 3238:G0T0 3218 
OX 3225 FOR X = 8 T8 3 : SOUND X, 

X) ) , 18 , 8 : NEXT X:GOTO 3218 
DM 3238 FOR X=8 TO 5: SOUND X,8,8, 

: RETURN 

EF 19858 REM EXPLAIN THE FOLLOMING DATA : 

FIRST SIX:PRINT OUT Xs AND Os ON TOP : 

i.e.;32 IS SPACE, 88 IS X, 79 IS O 
DH 19855 REM THE NEXT SIX ARE DATA LINES 

TO READ SHAPES FOR EACH CHORD PATTERN. 

i.e.;2888 IS ft FRET M/ NO FINGERS 
HZ 19866 REM THE LAST LINES OF DATA IN A 

SERIES (LINES 28899,28199, etc.) 

SC 19868 REM ARE SOUND NUMBERS : TONIC . THIR 

D , SEVENTH , MINOR THIRD. 
MX 28888 DATA 8 8,79,32,32,32,79,2888,2883 

,2888,2888,2888,2888 
MX 28881 DATA 8 8,79,32,32,32,79,2881,2882 

,2888,2888,2888,2888 
JI 28882 DATA 8 8,79,32,79,32,79,2888,2814 

,2888,2888,2888, 2888 
MG 28883 DATA 8 8,79,32,79,32,79,2881,2815 

,2888,2888,2888, 2888 
HP 28898 REM A - IN THIS O R D E R : 2 8 8 8 8 = MA J : 

28881 = MIN : 20002 = 7th : 20003 = ni r»7 . All 

others ( B , Bb , etc) are in sane order. 
MA 28899 DATA 14 4,114,96,81,121 
LS 28188 DATA 8 8,32,32,32,32,32,2888,2884 

,2888,2883,2888,2888 
SI 28181 DATA 8 8,32,32,32,32,32,2888,2884 

,2885,2882,2888, 2888 
PT 28182 DATA 8 8,32,32,32,32,32,2888,2884 

,2888,2814,2888,2888 

AB 28183 DATA 8 8,32,32,32,32,32,2888,2884 

,2885,2815,2888,2888 

SK 28198 REM B 

PE 28199 DATA 12 8,182,85,72,188 

UE 28288 DATA 8 8,32,32,79,32,79,2881,2815 



(TONES (TONE + 



I : NEXT X 
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,2009,2000,2008,2888 
U0 28281 DATA 8 8,32,32,32,32,32,2888,2888 

,2004,2005,2002,2000 
IB 2O202 DATA 8 8,32,32,32,32,79,2001,2015 

,2016,2000,2080,2000 
DB 20203 DATA 8 8,32,32,32,32,32,2888,2888 

,2884,2885,2815,2888 
5Y 28298 REM C 

NS 28299 DATA 121,96,81,68,182 

UV 28388 DATA 8 8,88,79,32,32,32,2888.2811 

,2812,2888,2888,2888 
TH 28381 DATA 8 8,88,79,32,32,32,2888,2817 

,2885,2888,2888,2888 
MB 28382 DATA 8 8,88,79,32,32,32,2812,2811 

,2888,2888,2888,2888 
TR 28383 DATA 8 8,88,79,32,32,32,2888,2817 

,2885,2888,2800,2000 
T M 20398 REM D 

RY 28399 DATA 18 8,85,72,61,91 

PS 28488 DATA 7 9.32,32,32,79,79,2817,2886 

. 2888, 2888, 2808, 2888 
OY 28481 DATA 7 9,32,32,79,79,79,2888,2886 

, 2888 , 2888, 2800, 2000 
CJ 20402 DATA 7 9,32,79.32.79,79,2017.2009 

.2000.2000.2000,2000 
BP 20403 DATA 7 9,32,79,79,79,79,2000.2009 

,2000,2000,2000,2000 
UA 20498 REM E 

YI 28499 DATA 9 6,76,64,53,81 

OH 28588 DATA 8 8,88,32,32,32.32.2818.2817 

.2815,2888,2808,2888 
KR 28581 DATA 3 2,32,32,32,32,32,2884,2888 

,2886,2888.2800,2000 
NJ 20502 DATA 8 8,88,32,32.32,32,2884,2817 

, 2889,2888,2808,2800 
OA 20503 DATA 32,32.32,32.32.32.2004,2000 

,2009,2000,2000,2000 
UO 20598 REM F 

RK 28599 DATA 91,72,68,58,76 

UU 28688 DATA 3 2.32,79,79.79,32,2000,2009 

,2007,2000,2080,2000 
OQ 20601 DATA 3 2,32,32,32,32.32,2000,2000 

,2004,2000,2086,2888 
UJ 28682 DATA 3 2,32,79,79,79,32,2888,2889 

,2818,2888,2888,2888 
VD 28683 DATA 3 2,32,32,32,32,32,2888,2888 

,2884,2888,2889,2888 
VC 28698 REM G 

VD 28699 DATA 16 2,128,188,91,136 

GT 28788 DATA 3 2,32,32,32,32,32,2888,2888 

,2888,2884,2817,2886 
QR 28781 DATA 3 2,32,32,32,32,32,2888,2888 

,2880,2004,2088,2886 
KM 28782 DATA 8 8,88,32,32,32,32,2883,2888 

,2888,2888,2888,2888 
KT 28783 DATA 3 2,32,32,32,32,32,2888,2888 



,2888,2884,2888,2889 
LK 20798 REM Ab 

GN 28799 DATA 15 3,121,182,85,128 

LE 28888 DATA 8 8,32,32,32,32,32,2884,2888 

,2883,2888,2888,2888 
RA 28881 DATA 8 8,32,32,32,32,32,2884,2885 

,2882,2888,2888,2888 
OU 28882 DATA 8 8,32,32,32,32,32,2884,2888 

,2814,2888,2888,2888 
KZ 28883 DATA 8 8,32,32,32,32,32,2884,2885 

,2815,2888,2888,2888 
ML 28898 REM Bb 

RN 28899 DATA 13 6,188,91,76,114 
EU 28988 REM C FLAT 15 REFERRED TO B 
NATURAL 

FN 28999 REM C FLAT NOTES ARE B 

OJ 21888 DATA 8 8,32,32,32,32,32,2888,2888 

,2888,2884,2888,2883 
UN 21881 DATA 8 8,32,32,32,32,32,2888,2888 

,2888,2884,2885,2882 
TE 21882 DATA 8 8,32,32,32,32,32,2888,2888 

,2888,2884,2888,2814 
FU 21883 DATA 8 8,32,32,32,32,32,2888,2888 

,2888,2884,2885,2815 
ML 21898 REM Db 

YT 21899 DATA 114,91,76,64,96 

UN 21188 DATA 8 8,32,32,32,32,32,2888,2888 

,2884,2885,2815,2889 
PG 21181 DATA 8 8,88,32,32,32,32,2888,2888 

,2817,2814,2888,2888 
HA 21182 DATA 8 8,88,32,32,32,32,2884,2885 

,2811,2888,2888,2888 
PL 21183 DATA 8 8,88,32,32,32,32,2815,2818 

,2817,2 888,2888,2888 
MZ 21198 REM Eb 

UK 21199 DATA 182,85,68,5 7,91 

PS 21288 REM F FLAT IS REFERRED TO E 

JH 21299 REM F FLAT NOTES ARE E 

ZL 21300 DATA 3 2,32,32,32,32,32,2000,2084 

,2017,2006,2000,2000 
ML 21301 DATA 3 2,32,32,32,32,32,2808,2884 

,2888,2886,2888,2888 
FJ 21382 DATA 3 2,32.32,32,32,32,2888,2884 

,2817,2889,2888,2888 
SJ 21383 DATA 3 2,32,32,32,32,32,2888,2884 

,2888,2889,2888,2888 
OB 21398 REM Gt> 

UG 21399 DATA 17 3,136,114,96,144 

KB 21488 REM A SHARP IS B FLAT 

FF 21588 REM B SHARP IS C 

MU 21688 REM C SHARP IS D FLAT 

OF 21788 REM D SHARP IS E FLAT 

JJ 21888 REM E SHARP IS F 

QZ 21988 REM F SHARP IS G FLAT 

LJ 22888 REM G SHARP IS A FLAT 



game of the month 



HELICOPTER ROUNDUP 



Article on page 48. 



LISTING 1 



Don't type the 
TYPO II Codes! 



IU 18 REM HELICDPTER ROUNDUP 

ID 28 REM BY UALTER BULAUA 

FU 38 REM (c) 1985, ANTIC PUBLISHING 

UI 48 GOSUB 1358:REM GAME INITIALIZATION 

NJ 58 GOSUB 1168:REM LEVEL INITIALIZATION 

BV 68 S=STICKC8J 

DT 78 POKE PMBASE + 861-FUEL , F**126 : FUEL = FUE 

L-8 • 84 : FUELU5ED=FUELU5EO+l 
JS 88 POKE 16,112:P0KE 53774, 112:IF FUEL< 

8 THEN 348 
GS 98 SOUND 8,15,8,18 



EC 


188 


EF 


118 


LF 


128 


T J 


138 


PL 


148 


YD 


158 


FO 


168 


DZ 


178 


EN 


188 
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XDIF=HCS-4) :YDIF=VCS-4) 

KPOS=KP05+4*KDIF: YP05=YP0S+4*YDIF 

IF HPOS<40 THEN XP0S=48 

IF XPOS>288 THEN XP0S=288 

IF YPOS<8 THEN YP0S=8 

IF YP0S>112 THEN YPOS=112 

SOUND 8 , 8 , 8 , 8 : SOUND 3,8,8,8 

IF KDIF = 1 THEN P MD = P MR 

IF HDIF=-1 THEN PMD=P ML 
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YM 198 A=USR CMOVE , 8 , PMBftSE , PHD+IC , KP05 , VP 
OS , 5-IC3 

SF 288 A=U5R CMOVE , 3 , PMBASE , PHK , KP05 , YPOS , 
5) 

PA 218 IC=IC+1 

BN 228 IF IC=2 THEN IC=8:P0KE 232,HC0MS:P 

OKE 238 , KPOS : POKE 231 , YPOS : ft=U5R (1536 , 





ADR CCPOSS J ) 




no 


238 


IF PEEK (208) = N C 0 US THEN IF 


NOT DO 




NE THEN GOSUB 478:D0NE=1 




EM 


248 


F = 8 




KB 


258 


IF NOT CHP0S=176) THEN 68 




NL 


268 


IF NOT (YP05=188) THEN 68 




JI 


278 


IF DONE THEN 528 




YU 


2 88 


SOUND 3,58,14,8 




zu 


2 9 8 


IF STRIGC8) THEN 68 




UR 


388 


POKE PMBftSE + 861- (FUEL + fl . 84) 


, 126 


HN 


318 


FUEL = FUEL + 8 - 3 : IF FUEL>51 THEN FUEL 




= 51 






QD 


328 


F=l:POKE 77, 8 : GOTO 68 




LS 


3 38 


REM END OF MAIN LOOP 




BG 


348 


REM CRASH 




EM 


358 


CRASH=1 




CS 


368 


SOUND 8 , 188 , 4 , 14 : SOUND 3,8, 


8 , 8 


zo 


3 78 


A=USRCM0VE,8, PMBASE, PMC, KPOS, YPOS, 




8 ) 






AH 


388 


FOR 1=28 TO 288 STEP 4 




AM 


398 


IF 1=188 THEN POKE 53256,3 




KZ 


488 


SETCOLOR 4,1,8 




VB 


418 


FOR N=l TO 18:NEKT N 




FY 


428 


NEHT I 




CE 


4 38 


SETCOLOR 4, 8, 8 '.SOUND 8,8,8, 


8 


00 


448 


FOR 1=1 TO 488:NEKT I 




SV 


458 


POKE 53256,1 




OQ 


468 


GOTO 538 




NU 


478 


REM CLOSE CORRAL GATE 




FN 


488 


COLOR 131:PL0T 6,ll:DRAMT0 


6 , 13 


KA 


498 


SOUND 3 , 40 , 8 , 15 : FOR 1=1 TO 


48 : NEKT 


00 


I 
588 


FOR 1=158 TO 68 STEP ~18:F0R N=I T 




0 *i- 


58 STEP -5:S0UND 3, N, 14, 12: 


NEKT N : 




NEXT 


I : SOUND 3,8,8,8 




CQ 


518 


POSITION 2,21:? tt6;"rctum 


to pad" 



: RETURN 

KT 528 SOUND 8,8,8,8:F0R 1=1 TO 588:NEKT 
I 

DI 538 SCORE=( NOT CRASH)* C N C O MS**1 0 8 8 - F U E 
LUSED) :IF SC0RE<8 THEN SC0RE=8 

AT 548 IF SCORE) HISCORE THEN HISCORE=SCOR 
E 

JG 558 POKE 53248, 8 : POKE 53249, B.POKE 532 

58,8:POKE 53251,8 
OP 568 GRAPHICS 1+16:P0KE 756 , CHBASE/256 
LJ 578 COLOR 13l:PL0T 8,8:DRAMT0 19,8:DRA 

WTO 19, 23 : DRAI4T0 8,23:DRAWTO 8,8 
HS 588 POSITION 2,5:? »6;"HIGH SCORE: ; H 

ISCORE 

YG 598 POSITION 2,8:? tt6;"9ane score: ; S 
CORE 

UJ 688 POSITION 3,13-? »6; "OfflSnBEEJEIElB I F 
UELUSED 

OL 618 IF NOT CRASH THEN POSITION 2,14:? 

*S6 i * 1 MBDQOHBrasniCDHHB " ; NC0I4S 
VR 628 IF CRASH THEN POSITION 2,16:? «6 ; " 

aaiEiraaMMacacaBiaBB]" 

CU 638 POSITION 1,28:? «6;"H PRESS Y 0DE1I3 
a Z" 

ZT 648 POKE 53279,8 
VT 658 RESTORE 698 

UN 668 READ IMF I = ~l THEN FOR J = l TO 288 

:NEKT J:GOTO 658 
OT 678 IF CPEEKC53279) ) =6 THEN SOUND 3,8, 

8, 8 : MCOUS=MCOMS+l : GOTO 58 
NU 688 SOUND 3,I,18,8:F0R J=l TO 12 : NEKT 

J:GOTO 668 

IN 698 DATA 6 8,68,8,68,68,47,47,47,8,47,4 

7, 8, 47, 47, 47, 8, 8, 8, 68, 68, 8, 68, 68, 45, 45 

, 45, 8 , 45, 45, 8 
HU 788 DATA 4 5,8,53,53,8,68,68,68,8 
YH 718 DATA 6 8,68,47,47,47,8,47,47,8,47,4 

7, 53, 53, 68, 68, 8, 45, 45, 45, 47, 8, 45, 45, 8, 

68, 60, 68, 8, 8, 8, -1 
AJ 728 REM DRAM PLAYFIELD 

BQ 738 GRAPHICS l+16:POKE 559,8:P0KE 756, 

CHBASE/256 
LD 748 SETCOLOR 8 , 1 , 4 : SETCOLOR 3,2,8 
HY 758 COLOR 13l:F0R 1=8 TO 17:PL0T 6,I:D 



R AWT O 13, I :NEMT I 
JE 768 PLOT 8,8:DRAMTO 18,8:DRAMT0 18,23: 

DRAWTO 8,23:DRAUTO 8,8 
HL 778 POSITION 19,28:? «6; "H" : POSITION 1 

9,21:? «6 ; "UJ" : POSITION 19,22:? **6 ; "3" : 

POSITION 19,23:? tt6;"B"; 
AH 788 POSITION 15,28:? *»6 ; "QQQ" : POSITION 
15,21:? «6 ; "QWW" : POSITION 15,22:? »6 ; 

"QQQ" 

TY 798 REM PLOT TREES 
VR 888 RESTORE 828 

MP 818 FOR 1 = 1 TO 5 : READ C : READ R'.POSITIO 
N C,R:? tt & ; "v" : POSITION CR + l:? «6;"K" 
:MEKT I 

JA 828 DATA 8,3,3,5,17,14,4,4,4,18 

FN 838 REM PLACE COWS 

BF 848 COLOR 89 

VM 858 FOR 1=1 TO NCOWS 

KG 868 COL=IHT(17*RMD(B))+l:ROW=IMT(17*RH 
D CO) 1*1 

OP 878 LOCATE COL , ROM, XV AL : IF KVAL<>32 TH 

EN GOTO 868 
DO 888 POKE ADR CCPOSS) *■ CI-1)**2, COL : POKE A 

DR(CPOS5)+(I-l)»2+l,ROM:PLOT COL, ROM 
GO 898 NEKT I 

GC 988 REM PLACE HELICOPTER 
00 918 KP0S=176 : YP0S=188 : PMD=PML 
MA 928 A=USR CMOVE, 8, PMBASE, PMD, KPOS, YPOS, 
5) 

RM 938 POKE 5 3 2 4 9 , 2 8 8 : P O KE 53258,288 

RU 948 REM CLEAR CENTER OF CORRAL 

KH 958 COLOR 32 : FOR 1=9 TO 16 : PLOT 7,I:DR 

AMTO 12,I:NEKT I 
QZ 968 PLOT 6,ll:DRAMT0 6,13 
ZT 978 RETURN 

AK 988 REM TITLE PAGE DISPLAY 

ZT 998 POKE 186 , PEEK C748) : POKE 53279,8 

ZO 1888 POKE 53248, 8 : POKE 53249, 8 : POKE 53 

258,8:P0KE 53251,8 
EV 1818 GRAPHICS 2 +16 : SETCOLOR 1,1,4 
TD 1828 POSITION 5,3:? »6 ; "HELICOPTER" : PO 

SITION 6,5:? »6 ; "ROUNDUP" 
KM 1838 COLOR 3:PL0T 8,8:DRAMT0 19,0:DRAM 

TO 19,ll:DRAMT0 8,11:DRAMT0 8,8 
KO 1848 POSITION 4,9:? «() ; "QQ[3B0K1QH[DO" 
JU 1858 RESTORE 698 

GY 1868 READ I : IF I=-l THEN FOR J=l TO 28 

8:NEKT J'.GOTO 1858 
GK 1878 IF PEEKC53279) =6 THEN SOUND 3,8,8 

, 8 : RETURN 

CE 1888 SOUND 3,I,18,8:F0R J=l TO 12 : NEKT 

J:GOTO 1868 
TK 1898 REM PLEAE MAIT DISPLAY 
TM 1188 GRAPHICS 2+16 

VT 1118 POSITION 7,4:? tt6;"PLEASE" 

ZY 1128 POSITION 8,7:? «6;"WAIT" 

ZA 1138 POSITION 5,18:? «6;"38 SECONDS" 

MT 1148 FOR 1=1 TO 388 : NEKT I 

AO 1158 RETURN 

00 1168 REM LEVEL INITIALIZATION 

AL 1178 POKE 53248, 8 : POKE 53249, 8 : POKE 53 

258,8:P0KE 53251,8 
FS 1188 GRAPHICS 2+16 : SETCOLOR 1,1,4 
YM 1198 IC=8:FUEL=51 

KR 1288 COLOR 3 : PLOT 8,8:DRAMTO 19,8:DRAM 
TO 19,ll:DRAMT0 8,ll:DRAMT0 8,8 

QR 1218 POSITION 5,2:? »6 ; "HELICOPTER" : PO 
SITION 6,4:? »6 ; "ROUNDUP" 

VU 1228 POSITION 2,7:? t*6 ; "BSIMaOHmmCBBGM 
EDO" 

DF 1238 POSITION 2,8:? »6 ; "HHESBDGMfflGJaBQB 
"; NCOMS 

ZE 1248 POSITION 4,18:? «6 ; "ratacsssBBoraaa" 
UE 1258 FOR I=PMBASE+818 TO PMBASE +8 61 : PO 

KE I,126:NEKT I 
JR 1268 POKE 53279,8 

NK 1278 IF PEEKC53279) =5 THEN NCOMS=NCOMS 

♦t:iF NC0MS>38 THEN NC0MS=1 
DF 1288 POSITION 16,8:? »6;MCOWS;" " 
UM 1298 FOR 1=1 TO 18 : NEKT I 
VM 1388 IF PEEKC53279) <>6 THEN 1268 
HK 1318 SCORE=8 

DJ 1328 GOSUB 728 : POKE 623,l:P0KE 559,46: 

FUELUSED=8:CRASH=8:D0NE=8 
CR 1338 POKE 53256, 1 : POKE 53259,1 
AR 1348 RETURN 

VB 1358 REM INITIALIZATION 
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QZ 1368 G05UB 988:G05UB 1898 
MC 1378 HISC0RE=8 : HC0WS=1 

HO 1388 DIM PHMOVES (180) , PRS (5J , PLS (5) » PC 

$(8) ,CPO5$(60) .CHNEU$(8) 
SU 1398 DIM PH5C5) 
YQ 1488 DIM H(11J ,V(11) 

QM 1418 MOUE=ADR (PMMOUES) : PMR=ADR (P»5) : PM 

L= ADR (PLS) : PMC=ADR (PCS) 
DA 1428 PHK=ADR(PKS) 

EE 1438 RESTORE 1448:F0R 1=5 TO 15 : READ N 
: H (1-4) =M : READ N : V ( I - 4 ) = N : N E X T I 

QB 1448 DATA 1,1,1,-1,1,8,8.8,-1,1,-1,-1, 
-1,8,8,8,8,1,8,-1,8,8 

HY 1458 GRAPHICS 1+16:P0KE 559,8 

ZE 1468 PMBASE = INT ( (PEEK (186) -6) /4) **4 

JE 1478 CHBASE= (PMBASE-2) **256 

SK 1488 PMBASE = PMBASE**256 

OM 1498 PRS (1) =CHR$ (31) : PRS (2) =CHR$ (132) : 

PRS(3)=CHRS(206) :PR$(4)=CHRS(12?) :PRS( 

5) =CHRS (14) 
IU 1588 PLS (1) = CHRS (248) : PLS (2) = CHR5 (33) : 

PLS(3)=CHRS(115) :PLS(4)=CHRS(254) :PLS( 

5) =CHRS (112) 
SD 1518 PCS (1) =CHRS (98) : PCS (2) =CHRS (82) : P 

CS(3)=CHRS(34) :PCS(4)=CHRS(116) :PCS(5) 

=CHRS(92) : PCS (6) =CHRS (94) 
YA 1528 PCS (7) =CHRS (162) : PCS (8) =CHRS (16) 
KN 1538 PXS (1) =CHRS (8) : PXS (2) =CHRS (8) : PXS 

(3)=CHRS(129) :PXS(4)=CHRS(8) :PXS(5)=CH 

R$ (8) 

OT 1548 REM ERASE P/M AND CHR MEMORY 

UF 1558 RH=PEEK (89) : RL=PEEK (88) 

BA 1568 I=PEEK (186) : POKE 1 06', I - 6 : POKE 89, 

PEEK (186) -8 : POKE 88,8:? "n":POKE 89, RH 

'.POKE 88, RL: POKE 18 6,1 
RQ 1578 POKE 559,8 
NA 15 8 8 REM P/M MOVE ROUTINE 

UU 1598 ' RESTORE 1600:FOR 1 = 1 TO 188:READ 

N : PMMOUES (I) =CHRS (N) : NEXT I 
MB 1688 DATA 216,184,184,184,133,213,184, 

24,185,2,133,286,184,133,285,184,133,2 

84,184,133,283,184,184,133,288 
BN 1618 DATA 18 4,184,133,289,184,184,24,1 

81,289,133,287,166,213,248,16,165,285, 

24,185,128,133,285,165,286,185 
TN 1628 DATA 8,133,286,282,288,248,168,8, 

162,8,196,289,144,19,196,287,176,15,13 

2,212,138,168,177,283,164 
U L 1638 DATA 212,145,285,232,169,8,248,4, 

169,8,145,285,288,192,128,288,224,166, 

213, 165,288, 157,8,288,96 
LG 1648 REM CHAR MOVE ROUTINE 
NV 1658 RESTORE 1968-1=8 
AO 1668 READ N:IF N=-l THEN 1688 
YO 1678 POKE 1536*1 , H : 1=1*1 : GOTO 1668 
HV 1688 CHNEWS = ,, KVQW«HYZ" 

RV 1698 FOR 1=8 TO 51l:POKE CHBA5E+I . PEEK 

(57344 + 1) : NEXT I 
NT 1788 RESTORE 1748 
AR 1718 FOR 1=1 TO 8 

NV 1728 CHADD = CHBASE+ ( ASC (CHNEMS (I , I) ) -32 
) *8 

BD 1738 FOR J=0 TO 7 : READ N:POKE CHADD+J, 

N : NEXT J : NEXT I 
MG 1748 REM TREE TRUNK -K 

FA 1758 DATA 2 4 , 2-4 , 24 , 24 , 24 , 24,24,24 
KM 1768 REM TREE LEAVES-V 

CS 1778 DATA 6 4,49,87,221,84,58,128,28 
KD 1788 REM LANDING PAD O 

NA 1798 DATA 2 5 5,255,255,255,255,255,255, 
255 

RJ 1888 REM REFUEL ZONE-U 

US 1810 DATA 231,231,231,8,8,231,231,231 
N 14 1828 REM FENCE - » 

GC 1830 DATA 2 5 5,68,68,68,255,68,68,68 
UU 1840 REM LEFT COU - X 

A A 1850 DATA 6 4,192,255,63,63,17,17,17 
OF 1868 REM CENTER COU - Y 
NK 1878 DATA 3 6,24,24,68,68,68,36,36 
IM 1888 REM RIGHT COU - Z 

DB 1898 DATA 2,3,255,252,252,136,136,136 
UZ 1988 POKE 54279 , INT (PMBASE/256) : POKE 5 
3277, 3 

YP 1918 POKE 784,8:P0KE 785,14:P0KE 786,1 

86:POKE 787,252 
RR 1928 FOR I=PMBASE+648 TO P MB A S E ♦ 8 9 5 : P O 

KE I,8:NEXT I 



AP 1930 FOR I=PMBASE*682 TO P MB A S E * 7 3 3 : P O 
KE I,129:NEXT l:POKE P MB A S E ♦ 7 3 4 , 2 5 5 : P O 
KE PMBASE+681 , 255 

BD 1948 RETURN 

AD 1958 REM C6U MOVE ROUTINE 

ER I960 DATA 10 4,104,133,284,184,133,283, 
169 

KG 1978 DATA 8,133,288,165,232,288,1,96 

UU 1988 DATA 19 8,232,165,232,18,168,177,2 
83 

YF 1990 DATA 13 3,219,288,177,283,133,228, 
32 

VA 2888 DATA 14 5,6,165,238,133,287,165,21 
9 

SO 2010 DATA 10,10,18,24,185,48,133,286 

NV 2020 DATA 3 2,193,6,138,133,233,24,181 

OL 2838 DATA 219,133,221,32,145,6,165,231 

VC 2848 DATA 13 3,287,165,228,18,18,24,185 

IC 2050 DATA 16,133,206,32,193,6,138,24 

IA 2868 DATA 181,228,133,222,178,32,165,6 

TK 2878 DATA 16 4,221,177,285,281,8,248,18 

DK 2888 DATA 16 5,228,166,219,32,238,6,76 

ES 2090 DATA 11,6,169,57,24,101,233,145 

YI 2100 DATA 205,166,220,32,165,6,164,219 

TD 2110 DATA 169,0,145,205,165,232,10,168 

AU 2128 DATA 1 6 5 , 2 2 1 , 1 4 5 , 2 8 3 , 1 6 5 , 2 2 2 , 2 O 0 , 
145 

UF 2138 DATA 2 0 3,166,221,32,230,6,76,11 

VU 2140 DATA 6,173,10,210,201,235,176,3 

HC 2150 DATA 16 2,0,96,201,245,176,3,162 

CY 2160 DATA 1,96,162,255,96,165,00,133 

UU 2170 DATA 2 0 5,165,09,133,206,138,288,1 

IN 2188 DATA 9 6,165,285,216,24,185,28,133 



AO 2190 
1 

HM 2200 
BV 2210 
5 

HB 2228 
6 

CK 2238 
ZM 2248 
JR 2258 
KL 2268 
LU 2278 
FH 2288 



DATA 285,144,2,238,286,282,288,24 

DATA 96,173,18,218,41,31,133,285 

DATA 165,287,24,197,286,176,13,16 

DATA 286,56,229,287,24,197,285,17 

DATA 2,162,1,96,229,286,24,197 

DATA 285,176,2,162,255,96,24,281 

DATA 8,176,1,96,281,17,144,1 

DATA 96,138,24,281,7,176,1,96 

DATA 281,13,144,1,96,238,288,96 

DATA -1 




End Program Typing Agony Forever! 

Antic Magazine + 
Disk Subscription 

Instant Relief! 
Only $99.95 
§§,for 12 issues. 



See Subscription 
Insert for details. 
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TURTLE PIANO 



LISTING 1 



TO SIGN :LEN 

TELL CO 1] PU 

TELL 8 BK 6 TELL 1 FD 14 

TELL C8 13 LT 90 FD LEN S 2 - 10 

END 

TO STAFF :LEN : HIT 

CS PU LT 90 FD : LEN / 2 RT 90 FD : HIT 

* 5 / 2 PD 
REPEAT 4 CSETH 98 FD : LEN BK : LEN RT 
90 FD :HIT1 
RT 180 

REPEAT 2 CFD : HIT * 4 RT 90 FD : LEN R 
T 981 
SIGN :LEN 
END 

TO MEASURE 

CS 

TELL 2 STAFF 250 10 
END 

TO DIRECTIONS 
CT 

PR CIF YOU I4ANT THE COMPUTER TO PLAY] 
PR [ALONG WITH YOU, PRESS " M « NOW- J 
MAKE "CHOI RC 

IF :CHOI = "Y [PR [THE COMPUTER MILL 
PLAY ALONG.]] [PR [THE COMPUTER MILL 
NOT PLAY.]] 

PR [Press a key to so on . ] 

PR RC CLEANUP 

END 

TO SETUP 
SETBG 8 

TELL 2 SETPN 8 SETPC 8 182 SETC 15 
TELL [8 1] SETC 6 
TELL [8 1 2] CS 
TELL 2 MEASURE 

TELL 2 PU SETPOS [8 -28] SETC 15 
PUTSH 1 : NOAT 
PUTSH 2 : STAFFLO 
PUTSH 3 : STAFFHI 

TELL O SETSH 2 TELL 1 SETSH 3 

TELL 2 SETSH 1 

END 

TO BEEP :NOTE 

SETENU O 3 

TOOT 8 :NOTE 18 28 

END 

TO PLAY :ST 

IF :ST = "A [TYPE (\ c] SETY -28 OP 2 
68-7] 

IF :ST = "S [TYPE [\ d] SETY -15 OP 2 
93-3] 

IF :ST = "D [TYPE [\ e] SETY -18 OP 3 
38] 

IF :ST = »»F [TYPE [\ *] SETY -5 OP 34 
7 . 7] 

IF : ST = "G [TYPE [\ 3] SETY 8 OP 391 
.1] 

IF :ST = "H [TYPE [\ a] SETY 5 OP 448 
] 

IF :ST = "J [TYPE [\ b] SETY 18 OP 49 
5] 



Article on pase 10. 



IF :ST = M K [TYPE [\ C] SETY 15 OP 52 
1-5] 

IF :ST = "L [TYPE [\ D] SETY 28 OP 58 
6.6] 

IF :ST = ••; [TYPE [\ E] SETY 25 OP 66 
8] 

IF :ST = [TYPE [\ F] SETY 38 OP 69 

5 . 4] 

IF :ST = [TYPE [\ G] SETY 35 OP 78 

2.2] 

IF :ST = CHAR 32 [TYPE [\ ] SETY 8 OP 

58888] 
OP 58888 
END 

TO BEEP2 : NOTE 

SETENV 8 3 

TOOT 8 '.NOTE 18 28 

TOOT 1 : NOTE S 2 8 28 

END 

TO REMEM :ST 

MAKE "LINE LPUT : ST : LINE 
END 

TO REPLAY :LINE 

IF EMPTYP :LINE [STOP] 

IF :CHOI = "Y [BEEP2 PLAY FIRST : LINE 
] [BEEP PLAY FIRST : LINE] 
REPLAY BF : LINE 
END 

TO START 
SETUP 

BEEP2 PLAY "A 
DIRECTIONS 
GET. NOTE 
END 

TO CLEANUP 

CT 

PR [C\=CLEANUP, Y\=5TART OVER, R\=REPLA 
Y] 

MAKE "LINE [] 
END 

TO GET. NOTE 
-DEPOSIT 731 255 
MAKE "ST RC 

IF :ST = "C [CLEANUP GET - NOTE] 
IF :ST = "Y [START1 

IF *.ST = "R [REPLAY : LINE GET. NOTE] 
REMEM :ST 

IF :CHOI = "Y [BEEP2 PLAY : ST] [BEEP 
PLAY :ST] 
GET. NOTE 
END 

MAKE "ST "R 

MAKE "STAFFHI C8 12 18 9 9 9 9 9 9 9 
9 9 9 18 12 8] 

MAKE "STAFFLO [8 24 48 72 136 136 136 
138 141 141 139 137 137 73 42 28] 

MAKE "NOAT [8 7 15 12 8 8 8 8 8 8 184 
248 248 248 96 8] 

MAKE "CHOI "Y 

MAKE "LINE [SDF\ FGH\ HJK\ 
K K K] 
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I assembly language 

TURBO TYPO 

LISTING 1 

UB 32808 REM TVPO II BV ANDY BARTON 
CM 32B15 REM TURBO TVPO REV - BV J.D- McLfl 
UGHLIN 

UP 32816 REM (c). 1985, ANTIC PUBLISHING 
GI 32825 DIM 85(75) 

zs 3 2 826 BS = "ahac3HiiaG[haah»inEa^»axMaxwuxBi^ 
raa:iaaanm^EaaMa/B»Q/E ■fflu/Da/Q J mu/soaniDrjcaa 

PK 32158 8NS = USR (ADR CBS J • ADR (LINES) # LEN CL 
INE$)) :ANS=PEEK(1?89) +256*PEEK (1798) +6 
5536*PEEK(1791) 

LISTING 2 



su 

CH 
F 14 
LS 
RT 

IE 
GZ 
HG 
GG 
GL 

MR 

FL 



18 REM CR 
0 

28 REM BV 
38 REM (C 
48 GRAPHI 
58 RESTOR 
; CHR5 (34 J 
68 POKE 7 
78 FOR 1= 
88 ? CHR$ 
98 NEKT I 
188 P85IT 
2:POKE 84 
118 POKE 

CREATED" 
128 DATA 
, 184 ,133, 
, 253, 6,14 
138 DATA 
77 , 284 , 13 
1 , 253, 6 , 1 
148 DATA 
, 6 , 198 , 28 
, 288 , 215 , 



EATE LINE 32826 FOR TURBO TVP 
J.D. MCLAL 



) 1985, AN 
CS 8 

E :POSITIO 



UGHLIN 
TIC PUBLISHING 



N 2,6:? 



•32826 B$= r 



66 , 1 

1 TO 
(A) ; 

: POKE 
ION 2 

2 , 13 
842,1 
: END 
169 , 1 
284 , 1 
1 , 254 
255 , 6 

3 , 286 
44 , 11 
254 , 6 
8 , 288 
96 , 34 



71 : READ A 



766, 
, 11 : ? 
STOP 

2 : ? " 

133 , 
84 , 18 
,6,14 
, 168 
,24,1 
, 238 
, 173 , 
, 238 , 



"CeHT-'tPBSITIBM 2, 

LINE 32826 HAS BEEN 

283,184.184,133,285 
4, 133, 287, 169, 8, 141 
1 

8,165,283,133,288.1 
65, 286, 189, 253, 6, 14 

254,6,288.3,238,255 
288, 238, 283, 198, 287 



LISTING 3 



05 
86 



TURBO TVPO 
BV J.D- MCLAUGHLIN 



II 



Article on pase 43. 



8280 LOOP* LDA SCB 

0210 STA SD0 

0220 LDA (5CC3,V 
OM LINES 

0230 6TA 5CE 
0240 LOOPB CLC 

S« CHAR. BV 'C 

0250 LDA SCE 

0260 ADC BASIC1 

0270 STA BASIC1 

028O BCC ONU 

0290 INC BASIC2 

0300 LDA BASIC2 

0310 BNE ONU 

0320 INC BA5IC3 
033O ONU DEC $DO 

034O BNE LOOPB 

035O INV 

0360 INC SCB 

0370 DEC SCF 

CHAR.S REMAINING 

0380 BNE LOOPA 
SSED? 

0390 RTS 



; GET UALUE OF "C" 
:U5E AS A COUNTER 
;GET CHARACTER FR 



: LOOPB ■ MULTIPLIE 



: SAME AS C=C+1 

: REDUCE NUMBER OF 

ALL CHARS. PROCE 

; VES , THEN RETURN 



07 ; ccj 


1985 


i, ANTIC 


PUBLISHING 


lO 


■**= 


S8600 




20 BASIC1 = 


1789 


; FIRST 


30 BASIC2 = 


1790 


.-SECOND AND 


40 BASIC3 = 


1791 


; THIRD BVTES OF A 


NS FROM 


BASIC 


: PROGRAM 


50 


LDA 


ttl 




60 


STA 


SCB 


; ESTABLISH COUNTE 


R CTYPOII"S VARIABLE 


C) 


70 


PLA 




; DISCARD ttOF BVTE 


S PASSED 






80 


PLA 






90 


STA 


SCD 


;HI BVTE OF ADR CL 


INES) 








0100 


PLA 






0110 


STA 


sec 


;LO BVTE OF ADR CL 


INES) 








0120 


PLA 




; BASIC ALUAVS PAS 


SES A 0 


HERE 


AS HI BYTE OF LEN CLINES) 


O130 


PLA 






0140 


STA 


SCF 


;LO BVTE OF LEN CL 


INES) 








0150 


LDA 


ttO 




0160 


STA 


BASIC1 


;ZERO ALL 


017O 


STA 


BASIC2 


; BVTES OF 


0180 


STA 


BASIC3 


;ans 


O190 


LDV 


ttO 


; SET COUNTER 
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'Computet 

from New Horizons 



Tired of always searching for the right recipe? 
Are the pages of your recipe books covered with your recipe ingredients? 
Fed up at guessing amounts when a recipe serves five but you want it for two? 
If so then you need The Computer Gourmet. 

With The Computer Gourmet you can: 

• Easily save your favorite recipes (even give them a rating!) 

• Find any recipe you need within seconds 

• Adjust for a different serving size automatically 

• Print the whole recipe or just the list of ingredients 
Best of all, The Computer Gourmet comes with a disk full of recipes! 

(With everything from main courses to desserts). 

Available on disk for Atari " computers (requires 48K). To order, send S29.95 plus 
S2.00 for postage (Texas residents please add 5 1/8% sales tax) to: 
New Horizons Software • P.O. Box 180253 • Austin, Texas 78718 
Or, for more information, call (512) 445-1767 



New Horizons 

Expanding Your Life 

Please write to us for information on all of our products for Atari computers. 
Dealer inquiries invited. Atari is a trademark of Atari, Corp. 
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G.U.P. 

LISTING 2 



continued from page 68 



Don't type the 
TYPO II Codes!' 



KU 18 REM GRAPHICS UTILITY PACKAGE DEMO 

MG 28 REM BY OAREK MI HOC KA 

FU 38 REM CCJ 1985, ANTIC PUBLISHING 

JP 48 START=16384 

VE 42 IF PEEKCSTART) =76 THEN 58 

ZA 44 POKE 718,66:? "** G.U.P- Machine 

Language routines are not in Henory! 

FL 46 ? !? " This deno cannot RUN with 

out t heser ou t i nes . see article for ad 
ditional information . '• : END 

PD 58 RANDOM=PEEK (5TART+3) +256*PEEK CST ART 

♦ 4) 

DU 68 BOK = PEEK tSTART + 5) +256*PEEK (START + 6) 

BE 78 LET DR AWT 0 = P E E K C S T A R T * 7 J ♦ 2 5 6**P E E K C S 
TART+8) 

MJ 88 LINE=PEEK CSTART+9) *256*PEEK CST ART+1 
8) 

SZ 98 CIRCLE=PEEK (5TART*il) +256*PEEK CSTAR 
T*12) 

IJ 188 LET COLOR=PEEK CSTART+13 ) *256*PEEK C 
5TART+14) 

TD 118 LET GRAPHICS=PEEK(5TART*15)+256*PE 

EKCSTART+16) 
IN 128 C128=PEEK(START+17) *256*PEEK CSTART 

♦18 J 

RR 138 CIRF=PEEK (5TART+19) *256*PEEK CSTART 

♦ 28) 

HF 148 TEHT=PEEK (START+21) *256*PEEK CSTART 

♦ 22) 

ZG 158 LET PLOT=PEEK (5TART+23) +256*PEEK CS 
TART+24) 

OE 168 LET SET=PEEK(START+25) +256*PEEK CST 
ART+26) 

PG 178 LET 5ETCOLOR=PEEK(START+27) *256*PE 

EKCSTART+28) 
TC 188 HOROFFSET=288 
UN 198 REM BEGIN MAIN PROGRAM 
UJ 288 GOSUB 918 
KT 218 POKE CIRF.l 

GE 228 A=U5R (GRAPHICS, 15) : POKE 752,255 

SI 238 ? "nThe sane routine in GR-15 with 

G.U.P." 

QT 248 ? "using multiple parameters for s 
peed.":A=USRCSET,85,85,85,B5) 

BI 258 FOR T=8 TO 79 STEP 3 : T2=T/2 : U=159~ 
T : U2=159-T2 

LN 268 A = USR (LINE, T, T2, U, U2, T, U2, U, T2, T, T 
2) 

SM 278 NEKT T : POKE 752,255 

FU 288 ? "tTwice the pixels in half the t 
i me . . . 

YZ 298 ? "How about some multi-color disp 
lays?" 

DO 388 A=USRCSET, 164, 29, 134, 165) : GOSUB 11 

68:FOR T = 79 TO 8 STEP -1 
AC 318 A=USR CLINE , T , T , T , 159-T) 
FG 328 A=USR CLINE, 159-T, 159-T, 159-T, T) 
KF 338 NEHT T 
RE 348 GOSUB 1188 

GL 358 A = USR (GRAPHICS , 15) : POKE 752,255 

YE 368 ? "*And now, the super Fast CIRCLE 

DJ 378 ? "38 CIRCLES DRAUN IN 4.8 SECONDS 
(6 CIRCLES PER SECOND!)" 

388 FOR Y = l TO 38 

398 A=USR (RANDOM) 

488 A = USR (CIRCLE , 68 + Y . 68*Y . 68) 

418 NEKT Y 

428 GOSUB 1188 

438 A = USR (GRAPHICS , 15) 

448 POKE 752,255:? "More fast circles. 



HH 
FR 
OK 
MA 
RB 
PS 
VF 

DR 

VZ 



. H , H , K ) : A = U S 



458 FOR R=88 TO 8 STEP -4 

468 K=PEEKC28) : A = USR (SET , H, 
R(CIRCLE,79,79,R) 

ES 478 A=USR CSET, 8, 8, 8, 8) : A=USR CCIRCLE, 79 

, 79, R-2) 

JU 488 NEHT R 

RP 498 GOSUB 1188 

GD 588 A=USR CGRAPHICS , 15) : POKE 752,255 

YI 518 ? "« And now, some more LINE drawl 

ng . . . " 

KU 528 FOR T = 8 TO 78 

UE 538 GOSUB 1168 

KK 548 A = USR CLINE, T, T , T ♦ 7 9 , T, T ♦ 7 9 , T ♦ 79 , T, 



T*79 . T , T) 
LY 558 A=USRCSET,8,8,8,8):T=T*1 
KO 568 fl-USR CLINE, T, T , T+79 , T , T + 79 , T + 79 » T, 

T+79 , T , T) 
KP 578 NEKT T 
RO 588 GOSUB 1188 

ON 598 A=USR CGRAPHICS , 15) : POKE 752,255:? 
"*Of course, circles can be left empty 



TZ 
HI 
DY 
FF 
GS 
HB 
HR 
KO 
GS 

JE 
UK 

HG 
RE 
00 
DN 



KK 

KZ 



MF 
UD 



KG 
DD 

HR 

JK 

HO 

BE 
CA 
RR 
UD 



OS 
BY 



IU 
DO 



FC 

KT 
RS 
ZK 
ME 

NN 

VO 
NC 

EG 



688 GOSUB 1168 

618 POKE CIRF , 8 

628 FOR T = 8 TO 58 STEP 2 

638 A=USR CSET , 178 , 178 , 178 , 178) 

648 A=USR CCIRCLE , T + 4S , 79 . 68) 

658 A = USR (SET , 8 , 8 , 8 , 8) 

668 ft=U5H CCIRCLE , T + 46 , 79 , 68) 

678 NEKT T 

688 GOSUB 1188 : A=USR CGRAPHICS , 15) : POKE 

752 , 255 

698 ? "* THE BOK ..." 

788 FOR T = 8 TO 7 8 : U = 3»T : A = U S R C S E T , U , U » 

U , U) 

718 A = USR CBOK , T , T , 159-T , 159-T) : NEKT T 
728 GOSUB 1188 

738 GRAPHICS 8:P0KE 752,255 

748 ? "know about mixed text and graph 

i c s???" 

758 FOR T=8 TO 3:POKE COLOR+T , 255 : NEHT 
T 

768 FOR T=l TO 58 

778 A = USR CCIRCLE, PEEK C53778) /2*16 , PEEK 

(53778)/2+16,9+PEEK(53778)/4 8) 

788 POKE CIRF, PEEK(53778)/2 56 

798 A=USR CTEKT , 34 , 8 , ADR C"Th i s complete 

s the demo") , 23) 

888 A=USR CTEKT , 38 , 24 , ADR C"o f the GRAPH 
ICS UTILITIES") , 25) 
818 NEKT T 

828 POKE TYPE, 8 : A = USR CTEKT, 32, 8, ADR C" 

") , 33) 

838 A = USR CTEKT , 28 , 32 , ADR (" 
") , 26) 

848 POKE TYPE, 255 : A = USR (TEKT , 34 , 8, ADR ( 

"This completes the demo"), 23) 

858 A-USR (TEKT , 38, 24 , ADR ("of the GRAPH 

ICS UTILITIES") , 25) 

868 A=USR CC128, 128, 5) 

878 A=USR CC128, 128, 6) 

888 GOSUB 1188 

898 GRAPHICS 10.POKE 712,48:? «6 : ? «6 ; 
"THANKS FOR MATCHING":? «6 : ? «6 : ? »6 ; ■• 
the" 

988 ? «*6;" graphics utility pa 
ckage" : H = USR CC128, 488 , 5) : END 
918 GOSUB 1888 

928 A=USR CGRAPHICS , 15) : POKE 87,7:REM M 
AKE BASIC THINK IT * S IN GR . 15 . 
938 COLOR l:POKE 752,255 

948 ? "Limited by the O.S-, BASIC can 
only use 168x88 resolution in GRAPHI 
CS 15. It is also slow.* 1 

958 FOR T = B TO 79 STEP 3 : T 2 = T/4 : U = 1 59 - 
T : U2=79-T2 

968 PLOT T, T2 : DHflUTO U,U2:DRAUT0 T,U2: 

DRAMTO U,T2:DRAUT0 T,T2 

978 NEKT T 

988 GOSUB 1188 

998 RETURN 

1888 GRAPHICS 18:? »6:? «6 ; " IN THE B 
EGINNING" 

1818 ? »6 : ? <*6;" THE ATARI HAD " 

1828 ? «6 : ? »6;" PLOT AND ORAUTO " 
1838 FOR T=l TO 588 : NEKT T 

1848 GRAPHICS l:? »6 : ? »6;"NOM, THANKS 
TO G.U.P" 

THE ATARI ALSO HAS" 
BOK, CIRCLE, AND" 
16 GRAPHICS MODES" 



NL 


1858 


? »6 : ? »6;" 


JM 


1868 


? «6 : ? »6;" 


JU 


1878 


? »6 : ? »6;" 


KU 


1888 


GOSUB 1188 


BA 


1898 


RETURN 


EH 


1188 


POKE 752,255 


UJ 


1118 


? "«* raBcaeiei 



FZ 1128 POKE 764,255 

TN 1138 IF PEEK C764) =255 THEN 1138 

GF 1148 POKE 764,255 

AO 1158 RETURN 

NH 1168 A=USR CRANDOM) : RETURN 
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COLORTONEi 
KEYBOARD 

(Waveform Corp.) 
Protecto Enterprizes 
Box 550 

Barrington, II 60010 
(312) 382-5244 

Reviewed by Nat Friedland 

At $49, the Colortone Keyboard by 
Waveform Corp. is not a tool for pro- 
fessional musicians. But nevertheless 
it is an intriguing Atari music device 
that puts a surprising amount of musi- 
cal power and feedback literally at 
your fingertips. 

The Colortone is a recent conver- 
sion from a fairly successful Commo- 
dore 64 product. As a matter of fact, 
Antic received its copy just one day 
after programmer Russ Karras de- 
livered the conversion software to 
Waveform. Actually our keyboard's 
converter hookup is a prototype that 
dangles exposed on a spliced cable. 

Distribution for this product is just 
getting set up, but one source you 
should be able to obtain it from is the 
Protecto mail-order house whose ad- 
dress is shown above. (We recom- 
mend that you verify availability by 
phone before mailing Protecto a 
check.) 

The Colortone is a membrane key- 
board, after the fashion of the old 
Atari 400. It's laid over a sturdy plastic 
base, but looks a lot like those card- 
board piano keyboards that kids in 
group piano classes used for practic- 
ing their fingering. 

Once you select your choices from 
the function keys at the top of the 
board, you will probably wind up 
playing mostly on the Color Harp 
strip above the regular piano-key 
diagram. The Color Harp gives you 
only the notes in the scale you have 
chosen, so you can fool around with- 
out the risk of hitting a drastically 
wrong note. 



The Colortone software does a lot 
of interesting things. You get a choice 
of seven well done pop/rock two- 
voice accompaniments or a simple 
metronome beat. Some of the most 
common and effective rock patterns 
are utilized, boogie, ballad, etc. 

You have eight instrumental voices 
to choose from and a variety of musi- 
cal scales. You can also adjust the 
speed, pause, and listen to playback 
of your solo with or without saving 
it to disk. 

As you are playing, the software 
writes out the musical notation of 
your solo, showing it above the bass 
accompaniment notes. At the same 
time, it also tracks your fingering with 
red lights over a piano key display. 

It is easy to sound pretty good as 
you play along with the accompani- 
ment by tapping or even rubbing your 
fingers over the color harp. You can 
never be drastically out of tune, 
although you are able to experiment 
with interestingly dissonant effects if 
you wish. 

A lot of your noodling will sound 
like the background music from your 
favorite videogames. 

Where Colortone Keyboard even- 
tually shows its limitations is its lack 
of precision at reflecting musical ideas 
you are consciously trying to play. It's 
often nearly impossible to find a 
specific note you're looking for in the 
color harp section. And the mem- 
brane sensors on the piano diagram 
don't respond fast enough to pick up 
speedy passages. 

Eventually it seems that no matter 
what you try to do, you find yourself 
repeating a consistent pattern of chro- 
matic eighth-note scales as the accom- 
paniments pump steadily along. 



introduces 
DR. P.D. QUICK, D.D. 

Dr. Quick Explains Buying 
On Margin, And Discloses 

THE HIDDEN 
HEALTH BENEFITS 

Of Using PDQ Diskettes 

Q. Doctor Quick, your PDQ Disks are 
double-density, will they work in my 
single-density disk drive? 

A. Ja. Oh, ja, they work so good, I am telling 
you, yes! They work like a chum. 

Q. Aren't your PDQ Disks better than I really 
need? 

A. I should hop so! We make sure it is better, 
not just this much, but this much, and then 
some. Double density, ja, and 48 tracks per 
inch, certified. And people is using them 
right now at 96 TPI, is that better yet? You 
betcha my life! 

Q. So why should I pay for quality I don't 
need? 

A. I can't believe what my ears are telling me! 
You don't know of the buying on margin? 
You got always to buy on margin. 
Everything! 

Q. Buy on margin? 

A. I am drawing you a hyperethical case. You 
are going to put a steering column in your 
car, okay? For ten dollars you can get one 
that will last you two, maybe three years. 
Then one day it turns to peanut butter 
while you're driving, and blooey! 
For twelve bucks, let's say it, you can buy a 
steering column to last five years. For thir- 
teen fifty you could get one to last 24 
zillion years, give or take a zillion. Which 
one do you go for? 

Q. You're talking about a margin of safety, 
then. 

A. You got it. A margin. You like to live 
dangerous, maybe? Go for the cheapie, 
save a buck or two. You got better smarts 
than that? You buy on margin when you 
get a steering column. Or a disk. 

Q. I see your point. 

A. No, that is before the point. Now I tell you 
the point. You ready? 
You buy on margin and get better than you 
need; you smile more, right? Fewer 
wrinkles in the forehead. Your food goes 
down nicer. All those tension backaches, 
they go away. Your doctor looks you over 
and says, "It's a miracle! I can't believe 
such perfection in a human person!" 
So, you going to chisel? Or do you show is 
nicht so empty up here, and buy on 
margin? 

PDQ — Premium Disk Quality — Diskettes are 
Double-Sided (yes, they'll work in your 810 Drive) 
as well as Double-Density, and carry a 21 -year 
replacement warranty — and even a 30nday money- 
back guarantee. 

AND AN EXTRA VALUE! To introduce our new 
line of "NameBrand" disks, we'll even inscribe 
your name in bright golden letters on each disk at 
no cost! 

PREMIUM QUALITY AT A REASONABLE 
PRICE. NameBrand Disks are $39.90 a box (10 
disks). For 5 boxes or more: $34.90/box. 
PLUS AN INTRODUCTORY OFFER. For 
orders mailed before June 30, 1985, deduct $10.00 
per box. We're that sure you'll reorder NameBrand 
PDQ's once you've seen them and tried them! 
AND AN OPPORTUNITY. With each order is in- 
cluded a free Opportunity Disk. Boot its program 
into a ASK or 64K Atari, and give some thought to a 
business of your own. 

Please add $2.00 to your order for postage & handl- 
ing (USA and Canada; others add $4.00). NYS 
residents add 7% sales tax. Rush your order to: 



Dept. 17 
13 White St. 

Seneca Falls, NY 13148 
Atarf 1 is a registered trademark of Atari Corporation 
Senecorrf- is a registered trademark of Seneca 
Computer Company, Inc. 
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^v<> the 
^ attention 
you deserve, 






\ Business 


[Edu 


cational 




disk based catalog and 



Jk Receive our 
pricebook. 

A Buy from people who specialize in ATARI 
exclusively. 

A Receive our 8 pg. newspapers 9 times a 
year filled with critiques, special tips, and 
classified ads. 

A Get at least 25% off all titles (and often 
more!). 

A Receive consistant low prices and prompt, 

knowledgeable service. 
A Choose from over 1,500 software items. 



JOIN 

CompuClub 

JL Where Atari owners bi 



TM 



belong. 



S!rsr™80M31-3111 

in Mass. call 617-879-5232 

Please have credit card number ready! 

Or return this coupon with $5.00* 



■ rr 



YES, I want to be a preferred customer of 
CompuClub" Rush me my catalog and price 
book. Enclosed please find my $5.00 registration 
fee. 

Please make check payable to compuclutr 
Payment enclosed cicheck nmonev order 

Bill my nMastercard DVisa Expires 

ID# 



n 



■ en 



Signature 

Name 

Address _ 
City 



.State. 



-Zip. 



Atari Model . 



Hours: Mon. Fri. 11.00 am 7.00 pm Eastern time 
Answering services after nours 
ComDuClub". P.O. Box 652. Natick MA 01760 

'Overseas membership $25.00 per year 
Jf^ Atari - Trademark of Atari Corporation 



ATARI COMPUTER HARDWARE 

ATARI 800XL 98.00 
ATARI 1200XL 58.00 

1010 CASS. REC 39.99 

DISK DRIVES 

ATARI 1050 148.00 

INDUS G.T. 224.00 



A 

ATARI 



PRINTERS 

GEMINI 10X 
GEMINI SG10 
STAR POWER TYPE 
EPSON RX80 
EPSON RX80FT 
EPSON FX80 
PROWRITER 851 0 
INTERFACE CABLES 
APE FACE 
U. PRINT 
MPP 1 150 



239.99 
239.99 
319.99 
229.99 
279.99 
389.99 
319.99 

54.99 
54.99 
54.99 



ATARI COMPUTER HARDWARE 



1020 COLOR PLOTTER 

1027 LETTER 

1025 PRINTER 
1030 MODEM 

(ADV. SOFTWARE) 
ATARI SCIENCE LAB 
MPP 1000E MODEM 
COMMODORE 1702 
TECHIKA COLOR 14' - 
AMDEC 300 COLOR 



49.99 
238.00 
148.00 
169.99 

39.99 
108.00 
208.00 
198.00 
228.00 



SPECIAL pK _ 

NASHUA PKG OF 

GENERIC 
DISK 

SINGLE SIDE 
DOUBLE DENSITY 



888 



THE 
LOWEST 
PRICES 
I THE 
' BEST 
SERVICE 

ELECTRONIC call 

ONE (614)864-9994 
P.O. Box 13428 • Columbus. Oh. 43213 

THE LOWEST PRICES 

ATARI ATARI COLECOVISION 
2600 5200 INTELLIVISION 
GAMES GAMES ATARI SOFT 

ATARI COMPUTER SOFTWARE 

29 99 
9.99 
59.99 
1999 
35.99 
35.99 
25 99 
9.99 
7.99 
7.99 
24.99 
14.99 
14.99 
34.99 



ATARI WRITER 
TOUCH TYPING 
LOGO 

CONV FRENCH 

SYN FILE 

SYNCALC 

SYN TREND 

EASTERN FRONT 

PAC MAN 

STAR RAIDERS . 

ASSEMBLE EDITOR 

MILLIPEDE 

MOON PATROL 

FLIGHT SIMULATOR II 



CALL OR WRITE FOR THE 
PRICE OF YOUR PROGRAM. 
HOW TO ORDER: CASHIER CHECK. MONEY ORDER. MASTERCARD" or 
VISA ' (Add 4% for charge cards) .NO PERSONAL CHECKS . NO 
C.O.D.'s . . SHIPPED U P S 

SHIPPING: Prompt one day shipping on in-stock merchandise Ohio residents 
add 5.5% sales tax. Add S3.00 on all orders under $100 00 . Add $5.00 on all 
orders over $100.00. 

INTERNATIONAL: Add 15% to all orders. 

CALL OR WRITE FOR FREE CATALOG 

ELECTRONIC ONE* f 6 1 4J864-9994 

P.O. Box 13428 • Columbus. Ohio 43213 



Software Discounters ; 

of America (& Peripherals, too!) __( 

For Orders Only 1-800-225-7638* 

Inquiries and PA 412-361-5291 Open Saturday 

• Free shipping on orders over $100 in continental USA 

• No surcharge for VISA/MASTERCARD 



KOYLAMD TOUCH TABLET. 



• Video drawing tool. 

• Comes with Koala 
Painter® —full feature 
computer graphics program. 

•Use the KoalaPad for cursor 
control, graphics, or custom 
keyboard. 

•Educational, entertainment, 
business software available. 
•Atari'* on Disk. 




^hoala 

Technologies Corporation 



Lowest 

Price 

Ever 



29 



95 



•Ordering and Terms: Orders with cashier check or money order shipped im- 
mediately. Personal/company checks, allow 3 weeks clearance. No C.O.D.'s. 
Shipping: Continental U.S.A.— Orders under $100 add $3; free shipping on orders 
over $100. PA residents add 6% sales tax. AK, HI, FPO-APO— add $5 on all orders. 
International Order Policy— No Credit Cards— add $15 or 15% of order whichever 
is greatest. Defective merchandise will be replaced with same merchandise— NO 
CREDITS! Return must have authorization number (412) 361-5291. Prices subject 
to change without notice. 



ADVERTISERS 



ADD-ON SYSTEMS 11 

ALLEN MACROWARE 44 

AMERICAN TV 81 

ANTIC see insert 

ASTRA SYSTEMS 18 

B & C COMPUTERVISIONS 79 

COMPUCAT 78 

COMPUCLUB 75 

COMPUTER CREATIONS 34 

COMPUTER GAMES PLUS 81 

COMPUTER PALACE 42 

COMPUTER SOFTWARE SERVICE 49 

CONTINENTAL 4 

DANDY DATA 79 

DORSETT EDUCATIONAL 9 

EASTERN HOUSE 33 

ELECTRONIC ONE 78 

HAPPY COMPUTING 20 

INDUS 83 

KYAN SOFTWARE 81 

LOTSA BYTES 3 

MICROBITS BC 

NEW HORIZONS SOFTWARE 75 

PROGRAMMERS WORKSHOP 15 

PROTECTO ENTERPRIZES 26,27 

ROYAL SOFTWARE 13 

SENECOM 77 

SERIOUS SOFTWARE 19 

SOFTWARE DISCOUNTERS OF AMERICA 36,78 

SOUTHERN SOFTWARE 67 

SUBLOGIC 2 

TELESYS 44 



This is provided as a convenience and as a courtesy to 
advertisers. ANTIC does not guarantee accuracy or 
comprehensiveness. 




The Online Catalog of Computers and Software 

Our Prices are WHOLESALE + 10% 

SAMPLES!!! 
Star Micronics SG-10 Printer — $261 
Atari 850 Interface — $117 
Indus GT Disk Drive — $234 
Olympia RO Daisy Wheel Printer — $332 
Atari 1050 Disk Drive — $172 
Batteries Included Home Pak — $36 

ASK ABOUT OUR FREE PRICE LIST 
FREE SOFTWARE - FREE BULLETIN BOARD SERVICE 

(408) 353-1836 

We support the complete Atari product line. 

Instant Shipping (or as fast as we can). Mastercard & Visa 
accepted (no extra charge). Shipping & handling add 6%. 
California customers add 6.5% sales tax. Order by phone 
Mon.-Fri. - 10 a.m. -5 p.m. PST). Order by modem daily 
6 p.m. -9 a.m.) from our online Telecatalog. 

Prices subject to change without notice. 

COMPUCAT 

24500 Glenwood Hwy., Los Gatos, CA 95030 



When You're Tired of 
Just Playing Games! 

Have you given up trying to find a 
source for business and educational soft- 
ware? Do you get the feeling that some folks 
are more aware of the latest game than the 
best word processor or pre-school program? 

If so... Welcome to Serious Software, 
where our name says it all. 

Our goal is to provide you with a com- 
prehensive selection of the best business and 
educational materials available for the Atari, 
backed with helpful, knowledgeable advice. 



Write or call for our Free Catalog. 

M.C. and VISA gladly accepted. 

Toll Free 800-782-7007 (Oregon 479-9516) 




310 N.W. 6th St. Grants Pass, OR 97526 



HANDICARDS 



Quick Reference Instructions 
for Atari Programs 

Now available for: 
ATARIWRITER* 
Beginning BASIC 

• Organized commands 

• Easy to read 

• Durable plastic (11" x 4 1/4") 

• Use on or off computer 

Only $8.95 ea. postpaid 

(Both for only $15.95 ppd.) 

NY residents add sales tax 
Dealer Inquiries Invited 'Trademark of Atari Corp. 



Handi Publishing Inc. 
P.O. Box 453 
Ardsley, NY 10502 



SPARE PARTS FOR 
YOUR ATARI 



Hard to find Integrated Circuits $5 each 
On CPU GTIA. ANTIC. CTIA. 

CPU 6502. CPU 6511 
On 10K OS. Math ROM 399B. OS ROMs 

499B & 599B 

On 800/400 Main: Pokey, 6520 PI A 
On 810 & 850 MPU 6507. PIA 6532. 

RAM 6810. ROM C 
Field Service Manuals 800/400. 800XL or 810 $25 ea 
For 1050 or 1200XL $20 ea. For 410 or 835 $15 ea 
Diagnostic Cartridges Computer or Disk $25 ea 



BETTER'N BIG BEN 

Provide your home computer 
the current time & date 
with the new Click Clock 
from Dandy Data. 
Features: 

• Easy installation 

plugs into Atari- standard 
joystick port 

• Long-life battery power 
Click Clock arrives running 

• Sample software included 

• 1001 programming uses 
Time to order. 

For your Click Clock 
send $45 in payment to: 

DANDY DATA 

23000 SW STAFFORD ROAD 
TUALATIN, OR 97062 

"Hand Assembled in Oregon" 



(408) 554-0666 

3400 El Camino Real, #1, 
Santa Clara, CA 95051 

Hours: Tuesday- Friday 10am-7pm, 

Sat. 10am-5pm 
Terms: UPS Shipments within USA. Add $5 COD 

or prepaid. Calif. Res. add 6Vt% sales tax. 



Service Centers. Retailers, to 
get your listing in Antic call 
(415)661-3400 



ALABAMA 

VIDEO REPAIR CO. 
2009 CENTERPOINT RD. 
BIRMINGHAM 
205-854-5212 
RAINBOW CITY SERVICE 
CENTER 

244 RAINBOW PLAZA 

GADSEN 

205-442-6810 

C & R ELECTRONICS 

704 HOLCOMBE AVE. 

MOBILE 

205-473-3030 

BUSINESS SERVICES 

2828 CHESTNUT ST. 

MONTGOMERY 

205-834-2290 

ARIZONA 

RICK'S TV & APPLIANCE 
1104 E DEUCE OF CLUBS 
SHOW LOW 
602-537-7625 

CALIFORNIA 

LEARNING TREE COMPUTER 

CTR. 

2441 N TUSTIN SUITE BCD 
SANTA ANA 
714-667-1575 

COMPUTER SUPPORT 
SERVICE 

52 S. LINDEN AVE. #1 
SOUTH SAN FRANCISCO 
415-589-9800 

D & G COMPUTERS 

4156 MANZANITA AVE #200 

CARMICHAEL 

916-485-7779 

SAN JOSE COMPUTER 

1844-E ALMADEN RD. 

SAN JOSE 

408-723-2025 

B & C COMPUTERVISION 

3400 EL CAMINO REAL 

SANTA CLARA 

408-554-0666 

ATCOM COMPUTERS 

1421 THOUSAND OAKS BLVD. 

THOUSAND OAKS 

805-497-1220 

AUTHORIZED COMPUTER 
SERVICE 

951 W FOOTHILL BLVD. 
UPLAND 
714-985-2101 
TESTEK 

7224 VALJEAN AVE 
VAN NUYS 
818-786-6890 

COMPUTER JUNCTION. INC 
15000 7TH ST SUITE 214 
VICTORVILLE 
619-245-3622 

COLORADO 

AMERICAN TELEVISION 
SERVICE CO 

1226 W LITTLETON BLVD 

LITTLETON 

303-795-2040 



LOOKING GLASS 

MICROPRODUCTS 

4233 WEST EISENHOWER 

LOVELAND I 

303-669-2681 



FLORIDA 

R & S ELECTRONICS. INC. 
3245 W. MCNAB RD. 
FT. LAUDERDALE 
305-979-6763 

BOURQUE^S ELECTRONIC 
SERVICE 

180 RICHPIEN RD. 

FT. WALTON BEACH 

904-862-3346 

MR. SOFTWARE 

101 HOLLYWOOD FASHION 

CENTER 

HOLLYWOOD 

305-981-9090 

ENTERTAINMENT SERVICES 
ELECT. 

811 EDGEWOOD AVE. S. 
JACKSONVILLE 
904-786-1305 
COMPUTER IMAGE 
10061 SUNSET DR. 
MIAMI 

305-271-1224 
COMP-U-PHONE 
6160 EDGEWATER DR. 
SUITE E. 
ORLANDO 
305-291-1712 

GEORGIA 

GOODWIN'S ELECTRONICS 

JUNCTION SHOPPING CENTER 

ALBANY 

912-435-9605 

NORMAN'S ELECTRONICS. 

INC. 

4014 PEACHTREE RD. NE 

ATLANTA 

404-237-3349 

ELECTRONIC SPECIALISTS 
1685 EDNA PLACE 
MACON 
912-742-5628 
RADIOS AND 
MICROCOMPUTERS INC. 
3833A WASHINGTON RD 
MARTINEZ 
404-863-9071 

HARRIS TV 

1 E MONTGOMERY 

CROSSROAD 

SAVANNAH 

912-927-2084 

HAWAII 

KONA COMPUTER 
75-5706 HANAMA PL. #107 
KAILUA-KONA 
808-329-8574 

ILLINOIS 

DIGITAL WORLD. INC. 
711 ARMY TRAIL RD 
ADDISON 
312-543-9000 



OMEGA ENTERPRISES 
7823 N. 2ND ST. 
ROCKFORD 
815-282-1477 

INDIANA 

WRIGHT ELECTRONICS 
614 N MAIN ST. 
EVANSVILLE 
812-423-2845 

CITIZEN'S TV & VIDEO 

827 W. GLENPARK AVE. 

GRIFFITH 

219-924-0047 

THE COMPUTER CORNER 

7101 BROADWAY 

MERRILLVILLE 

219-738-3282 

KANSAS 

MIDWEST APPLIANCE 
SERVICE 

METCALF SOUTH MALL 
OVERLAND PARK 
913-341-6688 

KENTUCKY 

FACTORY ELECTRONICS 
2422 PALUMBO DR 
LEXINGTON 
606-269-7341 
VANOVER TV HOSPITAL 
2027 CUMBERLAND AVE 
MIDDLESBORO 
606-248-3827 

LOUISIANA 

COMPUTER ELECTRONICS 
1955 DALLAS DR 
BATON ROUGE 
504-924-8066 

MASSACHUSETTS 

CUSTOM ELECTRONICS 

238 EXCHANGE ST. 

CHICOPEE 

413-592-4761 

BEACON TV-ELECTRONICS 

8 TILESTON ST. 

EVERETT 

617-389-8600 

CONDOR SERVICE 

372 SOUTH MAIN ST. 

SHARON 

617-784-2382 

ROCOM. INC 

184 MAIN ST. 

WAREHAM 

617-295-2542 

MARYLAND 

NATIONAL BUSINESS & 
SECURITY 

8639 LOCH RAVEN BLVD 
BALTIMORE 
301-665-8870 
EDGEWOOD TV & AUDIO 
4932 EDGEWOOD RD. 
COLLEGE PARK 
301-441-9116 



CROFTON TV & VIDEO 
SERVICE 

2217 DEFENSE HWY 

CROFTON 

301-721-1700 

COMPUVISION COMPUTER 
CENTER 

6445 BURWOOD PL. 
GLEN BURNIE 
301-850-4055 

ADVANCED COMPUTER 
SERVICE CO. 
287 E. GREEN ST. 
WESTMINSTER 
301-876-8202 

MAINE 

AUTOMATIC SERVICES 

22 TARGET INDUSTRIAL 

CIRCLE 

BANGOR 

207-942-6769 

J.D. ELECTRONICS 

385 STEVENS AVE 

PORTLAND 

207-775-1411 

MICHIGAN 

FUTURE DIRECTIONS 

1520 N. VAN DYKE 

BAD AXE 

517-269-7211 

THE FAMILY COMPUTER 

CENTER 

3895 W 12 MILE RD 

BERKLEY 

313-543-0520 

CHASE TRANSISTOR SERVICE 
521 LEONARD ST NW 
GRAND RAPIDS 
616-454-9000 

ABL ELECTRONIC SERVICE. 
INC 

32 E 14 MILE ROAD 

MADISON HEIGHTS 

313-588-6663 

SOLID STATE SERVICE 

548 SHATTUCK RD 

SAGINAW 

517-752-0606 

MINNESOTA 

PHILIPS COMMUNICATIONS 
& TV 

748 N E. HARDING ST. 

MINNEAPOLIS 

612-378-7200 

USER FRIENDLY COMPUTER 
8465 PLAZA BLVD 
SPRING LAKE PARK 
612-786-8181 



MISSOURI 

SOUTHLAND ELECTRONICS 

22 E. OLIVE DR. 

AURORA 

417-678-4623 

MIDWEST APPLIANCE 

SERVICE 

METRO NORTH MALL 
KANSAS CITY 
816-436-7010 



COMMUNITY SOUND & VIDEO 
1834 S. STEWART 
SPRINGFIELD 
417-887-3391 

A & E ELECTRONICS CORP 
2001 BIG BEND BLVD. 
ST. LOUIS 
314-645-7733 

J & S VIDEO VISIONS 

1051 WASHINGTON SQUARE 

CENTER 

WASHINGTON 

314-239-2677 

MISSISSIPPI 

ELECTRONIC SERVICES 
2315 25TH AVE 
GULFPORT 
601-863-3772 

NORTH CAROLINA 

SOUTHERN PHOTO 
TECHNICAL SVCE 
2610 SOUTH BLVD. 
CHARLOTTE 
704-523-0012 

NEW JERSEY 

DEPENDABLE PARTS. INC 
168 MAIN ST. 
CHATHAM 
201-635-5888 
S R DATA 

2141 WOODBRIDGE AVE 

EDISON 

201-985-5017 

ADVANCED ELECTRONICS 

VILLAGE SHOPPING CENTER 

RT 206 

FLANDERS 

201-584-1252 

TELSAR ELECTRONIC 

SERVICES. INC 

829 STONE RD. 

LAUREL SPRINGS 

609-783-8500 

VIDEO ELECTRONICS 

COMPUTER SVC 

1418 ROSELLE ST. 

LINDEN 

201-925-1418 

VIDEO CONNECTION OF 

SOMERSET 

900 EASTON AVE. 

SOMERSET 

201-545-8733 

K & S ELECTRONICS 

119 HAMILTON BLVD. 

SOUTH PLAINFIELD 

201-755-4204 



NEW YORK 

ISLAND VIDEO COMPUTER 
SERVICE 

35 MIDDLE COUNTRY RD. 

CORAM 

516-736-1001 

AARDVARK ELECTRONIC 

SERVICE 

44 CASTLE ST 

GENEVA 

315-789-5295 



LONG ISLAND COMPUTER 
GENERAL 

103 ATLANTIC AVE. 

LYNBROOK 

516-887-1500 

ABC ELECTRONICS SERVICE 
CO 

392 THURSTON RD. 

ROCHESTER 

716-328-1840 

OHIO 

ARJAY MICRO 
1385 BETHEL RD 
COLUMBUS 
614-459-4219 
STATION FUN TV. INC. 
206 CLINTON ST 
DEFIANCE 
419-782-8545 

COMPUTER CREATIONS 
424 E. STROOP RD. 
KETTERING 
513-294-0222 

B AND G ELECTRONICS. INC. 

15729 MADISON AVE. 

LAKEWOOD 

216-521-2855 

ERIC MARTIN'S. INC. 

5485 WARRENSVILLE CENTER 

RD 

MAPLE HGTS 
216-663-2032 

VIDEO COMPUTER WORLD. 

INC „ 

2223 WOODVILLE RD 
OREGON 
419-691-7282 
DODD CO. 

7795 W RIDGEWOOD DR 

PARMA 

216-886-2828 

OREGON 

NORTHWEST COMPUTER 

SUPPORTINC 

10200 S.W. NIMBUS G-1 

PORTLAND 

503-684-3280 

PENNSYLVANIA 

KIBLER'S INDEPENDENT TV 
526 FALLOWFIELD AVE 
CHARLEROI 
412-483-7484 

PARK T MORROW. INC. 
627 W 26TH ST. 
ERIE 

814-455-7566 

DEBUG BYTES COMPUTERS 
662 PHILADELPHIA ST 
INDIANA 
412-349-7290 

GRUSS ELECTRONIC REPAIR 

HILLS PLAZA 

JOHNSTOWN 

814-266-1395 

TESCO. INC. 

9237 ROOSEVELT BLVD. 

PHILADELPHIA 

215-677-5000 
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atari service center 



PARTS/SERVICE FOR ATARI COMPUTERS 

FLAT SERVICE RATES BELOW INCLUDE PARTS AND LABOR 
60 DAY WARRANTY 

800 Computer Repair $65.00 800XL Computer Repair $67.50 

400 Computer Repair $47.50 810 Disk Drive Repair $79.50 

600XL Computer Repair $65.00 850 Interface Repair $60.00 

I200XL Computer Repair $65.00 1050 Disk Drive Repair $85.00 

Above units repaired or exchanged with rebuildable exchange 
Include $7.00 return shipping and insurance. 



INTEGRATED 
CIRCUITS 

GTIA Chip . . . C0I480S 

upgrade with instructions . . . $11.50 
I OK rev. "B" O.S. Upgrade . . . 

3 chip rom set with instructions . . . $12.50 
Pokey Chip . . . C0I2294 . . . $8.50 
Antic Chip . . . C0I2296 . . . $10.00 
PIAChip . . . C0I4795 . . . $11.00 
CPU Chip . . . COI4806 . . . $12.50 
Basic ROM set . . . $15.00 



REPLACEMENT/ 
BACK UP 
BOARD SETS 



800 OK 

800 .. . 48K 
400 .. . OK 
810 Board Set 
810 Mech . . . 



. $72.50 

. . $125.00 
. . $52.50 

. . . $110.00 

$85.00 



All Boards Complete With IC's Etc. 
Keyboards not included. 
Overseas customers ... ask 
for PAL price list. 



MISC. 



MODULES/CIRCUIT 
BOARDS. ..complete with IC's 
I6K Ram Memory Module . . . 
CX853 . . . $24.50 

800 I0K Rev. "B" O.S. Module . . . $18.50 

800/400 CPU Board with GTIA . . . $24.50 810 Rear Board/Analog Board Upgrade 
800 Main Board . . . $28.50 
400 Main Board . . . $26.50 
400 Main Board W/O IC'S . . . $8.50 
800 Power Supply Board . . . $10.50 
810 Data Separator Board . . . 
upgrade with instructions . . . $25.00 
810 Side Board W/O Sep. & 1771 . . . 
810 Rear Power Board ... S25.00 
810 Analog Board . . . $16.00 



$39.50 



with 10 pin jumper and instructions . 
Editor Assembler . . $29.95 

Basic Cartridge W/O Case. Manual . . . $23.50 
Cartridge Circuit Boards . . . $4.00 
Non-Atari Cartridge Boards . . . $2.00 
Non-Atari power transformer . . . $16.50 
$43 50 S ams Repair Manual 

for 800 or 400 ... $17.50 EA. 
800 Keyboard Repair ... $35.00 
De Re Atari ... $12.50 

AMERICAN TV PHONE 41 5-352-3787 

Mail Order & Repair Address . . . 15338 Inverness St., San Leandro, CA 94579. 

Retail Store 1988 Washington Ave.. San Leandro CA 94577. 

Terms: We accept money orders, personal checks or COD VISA/Mastercard OK on orders over 
$25.00. No personal checks on COD. 

Shipping: $4.00 Shipping and handling on orders under $150.00. Add $2.00 for COD orders. CA 
res. include 6-1/2% sales tax. Overseas shipping extra. 

Prices subject to change without notice. We reserve the right to limit quantities. Sales limited to 
stock on hand. Much More! Send SASE for free price list. 

Repair and upgrade services available . . Call. 'Atari is a registered trademark of Atari. Inc. 




NATIONAL TELEVISION 


HOUSE OF TELEVISION 


UTAH 


ARTICULATE SYSTEMS 


SERVICE 


601 SOUTH DULUTH AVE 


INTERWEST ELECTRONICS 


E 9405 SPRAGUE AVE 


5461-63 PENN AVE 


SIOUX FALLS 


CORP 


SERVICE CTR 


PITTSBURGH 


605-338-9051 


4091 SOUTH STATE ST 


orUKANt 


41^-3b1-o400 


TENNESEE 


SALT LAKE CITY 




BOYD TV 


HI-FI SERVICE CENTER 


801-266-5301 


JOHNSON'S TELEVISION 


719 LANCASTER AVE 


4608 HIXS0N PIKE 


VIRGINIA 


SERVICE 


WAYNE 

01C COO 07O7 


CHATTANOOGA 


SALEM COMPUTER CENTER 


N 4424 WALL 


615-877-6781 


4034 PLANK RD 


SPOKANE 


Runnc ki AKin 
nnuuc loLANU 


BILL'S TV SALES & SERVICE 


FREDERICK 


509-327-9566 


VIDEO ENCOUNTERS 


3843-C DICKERSON RD. 


703-786-8126 


WISCONSIN 


MAINES SHOPPING CENTER 


NASHVILLE 


VIDEO UNLIMITED SERVICE 


WAKEFIELD 


615-865-5000 


CENTER 


AUTHORIZED TV 


H\J 1 / OO OIOU 




1707 ROUTE 17 


810 NINTH ST. 




TEXAS 


GRAFTON 


GREEN BAY 


SOUTH CAROLINA 


TV CENTER 


804-898-5318 


414-499-4215 


ELECTRONIC SERVICE CO 


202 S. WILLIS 


L & Y ELECTRONICS 


DAN'S CITY WIDE TV 


1736 DECKER BLVD 


ABILENE 


13670 JEFFERSON DAVIS 


1259 E. JOHNSON ST. 


COLUMBIA 


Q1S-fi77-1171 

jlJ Ul i 11(1 




IVIHulOUlM 


803-782-2705 


PACIFIC STEREO 


W00DBRIDGE 


608-255-4144 


COASTAL TV & APPLIANCE 


525 113TH ST. 


703-494-3444 


MISTER TV SERVICE 


CO 


ARLINGTON 




5455 W. BURLEIGH ST. 


603 HWY 501 


817-640-3094 


WASHINGTON 


MILWAUKEE 


CONWAY 


L0NGS/ENTR0NIX 


ON LINE COMPUTERS PLUS 


414-873-2415 


803-248-2686 


5800 MAPLE AVE 


13710 NE 20TH ST 






DALLAS 


BELLEVUE 


WEST VIRGINIA 


SOUTH DAKOTA 


214-358-3222 


206-644-2080 


COMPUTERS PLUS. INC. 


TAYLOR AUDIO-VISUAL. INC. 


COMPUTER HOME. INC 


BUTLER'S TV & COMPUTER 


2077 CHARLESTON TOWN 


1009 DAKOTA S. 


3548 KNICKERBOCKER 


SERVICE 


CENTER 


HURON 


SAN ANGEL0 


28717 PACIFIC HWY SOUTH 


CHARLESTON 


605-352-3205 


915-944-9795 


FEDERAL WAY 
206-941-9096 


304-342-4848 



Next Month 

COMPUTER 
CHALLENGES 

+ Battle Of The 
Chess Programs 

# Coverage Of Atari 
Meeting At Antic 

* Inside Strategic 
Simulations Inc. 

+ Another Mind- 
Boggling Cover 
By Okamoto 




PASCAL* 

For the Atari 



kyan pascal is the most complete package available for learn- 
ing and using the Pascal language. And now, it's available for 
the Atari family of computers. 

kyan pascal is easy to use, lightning fast, and loaded with fea- 
tures It's a full Pascal implementation and perfect for both be- 
ginning and advanced programmers. 

kyan pascal features: 

• Optimized Machine Code Compiler; 

• Built-in Full Screen Text Editor; 

• String-Handling, Chaining, Include File, and Other 
Powerful Extensions; 

• 13-Digit Arithmetic Precision and Full Graphics 
Support, 

• Built-in Assembler (Allows Full Hardware Control); and, 

• Tutorial Manual with Sample Programs. 

kyan pascal requires 48K of memory and a single disk drive. 
No additional hardware is necessary. And, it comes with kyan's 
MONEY BACK GUARANTEE ... If not completely satisfied, 
return it within 15 days for a full refund. 
kyan pascal for the Atari $69.95 

(Add $4 50/COpy lor handling $12 00 outside North America Calilornia 
residents add $4 b5/copy lor sales tax) 

Send Check/Money Order to: kyan software, Dept. N 
Call: (415) 775-2923 P""^ 1850 Union St.. Ste. 183 
MC/Visa Accepted 1 \(rZE$ San Francisco. CA 94123 



June 1985 
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new products 




AERO ■■■■■■■■■■■■ 

(printer) 
Alphacom 

2323 South Bascom Ave. 
Campbell, CA 95008 
(408) 559-8000 
$249.95 

Described as an Epson-compatible dot- 
matrix printer, the Aero is rated at 130 
cps. It uses a 6x9 matrix field, con- 
tains a 2K buffer and supports (all on 
the same line) superscript, subscript, 
double strike, enlarged and emphasized 
print and underlining. 




PLUS WRITER I 

(printer) 
Alphacom 

2323 SO. BASCOM Ave. 
Campbell, CA 95008 
(408) 559-8000 
$399 

Alphacom claims this new 20 
character-per-second daisywheel 
printer is the perfect printer for your 
Atari. Plugging directly into your Atari, 
the PlusWriter emulates the Diablo 630 
and uses standard ribbons and daisy- 
wheels. We are told that the printer 
supports superscript, subscript, 
boldface, proportional spacing and 
underlining. 



New Products notices are compiled by the 
Antic staff from information provided by 
the products' manufacturers. Antic wel- 
comes such submissions, but assumes no 
responsibility for the accuracy of these 
notices or the performance of the prod- 
ucts listed. 




GE 3-8100 PRINTER 
GE PRINTER 
INTERFACE MODULE I 

(printer and interface) 

General Electric Company 
Electronics Park 
Syracuse, NY 1322 1 
(315) 456-2446 

S 299.95 (printer) 
$89.95 (interface) 

GE's foray into the home computer 
market includes a dot-matrix printer 
capable of "letter quality" print at 25 
cps or regular draft printing at 50 cps. 

The interface will connect the 
printer directly to an Atari. 

QUESTBUSTERS ■■■■HH 

(adventure newsletter) 
202 Elgin Court 
Wayne, PA 19087 
$15/year 

This monthly adventure game newslet- 
ter covers recent news, reviews, and 
the like. It is not Atari-specific. 




WIRE TREE PLUS I 

(line filter) 
Networx 

203 Harrison Place 
Brooklyn, NY 11237 
(718) 821-7555 
$99.95 

This surge/spike filter not only protects 
electrical lines for computers and 
peripherals, but also protects two 
modular phone lines (providing exactly 
the kind of filtering and protection the 
Atari 1030 modem doesn't have). 

Q-MODEM ■■■HWI 

(modem) 

Quantum Microsystems Inc. 
P.O. Box 179 
Liverpool, NY 13088 
(315) 451-7747 
$149.95 

A 300-baud direct connect modem 
with autodial, autoanswer and other 
advanced features, the Q-Modem plugs 
directly into your Atari and fits in the 
palm of your hand. It even comes 
with the famous QuanTerm software, 
which uses color displays, on-screen 
menus, a built-in editor, multiple buf- 
fers and so on. 

Return the favor. When you call a 
manufacturer or supplier about a 
product you 've seen advertised or other- 
wise mentioned in ANTIC, please tell 
them so. This will help us to continue to 
bring you the latest information about 
products that will make your Atari com- 
puter an even more valuable investment 
in the future —ANTIC ED Q 
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Turbo charge your Atari 
with an Indus GT.™ 

Introducing the all-new Indus (iT ,M disk 
drive. The most advanced, most complete, most 
handsome disk drive in the world. 

A flick of its "Power" switch can turn your Atari 
into a Ferrari. 

Looks like a Ferrari. 

The Indus GT is only 2.65" high. But under its 
front-loading front end is slimline engineering 
with a distinctive European-Gran flair. 

Touch its LED-lit CommandPost™ function < on- 
trol AccuTouch™ buttons. Marvel at how respon- 
sive it makes every Atari home computer. 

Drives like a Rolls. 

Nestled into its soundproofed chassis is the 
quietesl and most powerful disk drive power sys- 
tem money can buy. At top speed, it's virtually 
unhearable. Whisper quiet. 

Flat out, the GT will drive your Atari trac k-to- 
track 0-39 in less than one second. And when 
you shift into SynchroMesh DataTransfer,™ you'll 
increase your Atari's baud rate an incredible 
400% . (Faster than any other Atari system drive.) 

And, included as standard equipment, each 
comes with the exclusive 
GT DrivingSystem™ of 




software programs. World-class word proc essing 
is a breeze with the GT Estate WordProcessor! M 
And your dealer will describe the two additional 
programs that allow GT owners to acc elerate their 
c omputer driving skills. 

Also, the Indus GT is covered with theGT 
PortaCase™ A stylish case that conveniently dou- 
bles as a 80-disk storage file. 

Parks like a Beetle. 

The GTs small, sleek, condensed size makes it 
easy to park. 

So see and test drive the incredible new 
Indus GT at your nearest 
c omputer dealer soon. 

I he drive will be 
well worth it. 



INDUS 




The all-new Indus GT Disk Drive. 

The most advant ed, most handsome disk drive in the world. 



h additional information, < all m !H 882-*M>00. 
198 M in lus Systems c > *<)4 I )c(Min.u Avenue Chatsworth, ( \ 91 111. 1 he Indus ( '. I is a \m »du< I ol Indus S\ stems \tari is .1 rogisterod trademark of Mart, ln< 





ONLY 

$149.95 



SOPHISTICATED SMART TERMINAL 
SOFTWARE ON CARTRIDGE 

FEATURES: 

□ Supports XMODEM Protocol 

□ ASCII/ ATASCII Translation 

□ Allows Transfer of Files Larger than Memory 

□ Upload/ Download of Text and Programs 

□ 100% Machine Language 

□ Loads a 65 Column Screen Driver 

□ Multiple Buffers 

□ Off-Line Editing 

□ Variable Baud Rate 

□ Parity Options 

□ Full/Half Duplex 



Atari and CompuServe DemoPak are trademarks of Atari Corp. and CompuServe. 





(MrOOOdO IMKftSP DKDarfe^ 

■ Works with Atari ,400, 800, 
600XL and 800XL 

TM 

Replaces Atari 850 Interface 
Module 

II Compatible with all software 

H 5-foot cable with Centronics 
plug (compatible with Epson, 
NEC, Prowriter, etc.) 

H Connects to serial bus on 
computer 

2 Year Warranty 



H Auto Answer/ Auto Dial 
Direct Connect to Phone Line 

TM 

No Atari 850 Interface 
Module Needed 
if Includes AC Adapter/ 
Power Supply 

Free CompuServe DemoPak 
1 Year Warranty 
Connects to Joystick Port 
Works on ALL Atari Computers 




-o 
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MClMOirS «0IP>M[§(a®IL PgOWCTS 

225 Third Avenue, SW • Albany, OR 97321 
O R D E RS : 1 -800-624-7532 
CUSTOMER SERVICE: 1-503-967-9075 



